Помогите срочно нужно написать программу в Паскале по ветвлениям)
Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
Заранее спасибо большое)
- аноним
- почти 5 лет назад
- 1
- Информатика /
- 10 — 11 классы
1 ответы
- аноним
begin
var a := ReadInteger('Возраст Антона:');
var b := ReadInteger('Возраст Бориса:');
var v := ReadInteger('Возраст Виктора:');
if (a > b) and (a > v) then begin Println('Антон старше всех');exit; end;
if (b > a) and (b > v) then begin Println('Борис старше всех');exit; end;
if (v > a) and (v > b) then begin Println('Виктор старше всех');exit; end;
if (a > v) and (a = b) then begin Println('Антон и Борис старше Виктора.');exit; end;
if (a > b) and (a = v) then begin Println('Антон и Виктор старше Бориса.');exit; end;
if (v > a) and (v = b) then begin Println('Виктор и Борис старше Антона.');exit; end;
if (a = b) and (b = v) then begin Println('Виктор, Борис и Антон одного возраста.');exit; end;
end.
Кто старше?
Программа принимает три числа: возраст Антона, возраст Бориса и возраст Виктора. Определите, кто из них старше остальных.
Входные данные
Входная строка содержит три натуральных числа: возраст Антона, возраст Бориса и возраст Виктора.
Выходные данные
Выходная строка должна содержать латинскую букву – код того человека, который старше всех. Код Антона – ‘A’, код Бориса – ‘B’, код Виктора – ‘C’. Если двое старше третьего, нужно вывести два кода через пробел (в алфавитном порядке). Например, если Антон и Виктор старше Бориса, программа должна вывести ‘A C’. Если все трое одного возраста, программа должна вывести число 0.
Примеры
входные данные
10 12 23
выходные данные
C
входные данные
12 10 12
выходные данные
A C
Составить список всех людей старше 50 лет
я на экзамене. имеется условный саисок людей, содержащих в себе ФИО и возраст людей. необходимо.
Вычислить день, когда один человек в n раз старше другого
Для двух людей, родившихся в разные дни, есть день, когда один в два раза старше другого. Это так.
Воспользовавшись записью АНКЕТА из варианта №10, определите, сколько лиц мужского пола в возрасте старше 18 лет и младше
Воспользовавшись записью АНКЕТА из варианта №10, определите, сколько лиц мужского пола в возрасте.
Запрашивать последовательно возраст Жени, Миши и Петра и определять, кто из них старше
Написать программу, которая сможет запрашивать последовательно возраст Жени, Миши и Петра и.
Ввести последовательно возраст Антона, Бориса и Виктора; определить, кто из них старше
Дана задача: Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше.
Ввести последовательно возраст антона бориса и виктора определить кто из них старше
Помогите пожалуйста!
Надо написать программы на языке python
A»: Ввести три целых числа, найти максимальное из
них.
Пример:
Введите три целых числа:
1 5 4
Максимальное число 5
«B»: Ввести пять целых чисел, найти максимальное из
них.
Пример:
Введите пять целых чисел:
1 5 4 3 2
Максимальное число 5
«C»: Ввести последовательно возраст Антона, Бориса и
Виктора. Определить, кто из них старше.
Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
a = [int(x) for x in input(«Введите три целых числа:n»).split()]
max = a[0]
for i in a:
if i > max:
max = i
print(«Максимальное число: <>«.format(max))
a = [int(x) for x in input(«Введите пять целых чисел:n»).split()]
max = a[0]
for i in a:
if i > max:
max = i
print(«Максимальное число: <>«.format(max))
Ввести последовательно возраст антона бориса и виктора
Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
Заранее спасибо большое)
-
program chik;
Var a, b,c:integer;
Begin
Write (‘Возраст Антона:’);
Readln (A);
Write (‘Возраст Бориса:’);
Readln (B);
Write (‘Возраст Виктора:’);
Readln©;
If (a>b) and (a>c) then writeln (‘Антон старше всех.’);
If (b>a) and (b>c) then writeln (‘Борис старше всех.’);
If (c>b) and (c>a) then writeln (‘Виктор старше всех.’);
If (a=b) and (b>c) then writeln (‘Антон и Борис старше Виктора’);
If (a=c) and (c>b) then writeln (‘Антон и Виктор старше Бориса’);
If (b=c) and (b>a) then writeln (‘Виктор и Борис старше Антона’);
End.
Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
Заранее спасибо большое)
-
Попроси больше объяснений Следить Отметить нарушение
Ответ
Проверено экспертом
//PascalABC. NET
//Версия 3.3, сборка 1634 (14.02.2018)
Begin
Var a := ReadInteger (‘Возраст Антона:’);
Var b := ReadInteger (‘Возраст Бориса:’);
Var v := ReadInteger (‘Возраст Виктора:’);
If (a > b) and (a > v) then begin Println (‘Антон старше всех’);exit; end;
If (b > a) and (b > v) then begin Println (‘Борис старше всех’);exit; end;
If (v > a) and (v > b) then begin Println (‘Виктор старше всех’);exit; end;
If (a > v) and (a = b) then begin Println (‘Антон и Борис старше Виктора.’);exit; end;
If (a > b) and (a = v) then begin Println (‘Антон и Виктор старше Бориса.’);exit; end;
If (v > a) and (v = b) then begin Println (‘Виктор и Борис старше Антона.’);exit; end;
If (a = b) and (b = v) then begin Println (‘Виктор, Борис и Антон одного возраста.’);exit; end;
End.
Читайте также: База данных компьютерная фирма
Var A, B,V:integer;
Begin
Readln (A, B,V);
If (A>B) and (A>V) then
Writeln (‘Антон старше’)
Else if (B>V) and (B>A) then
Writeln (‘Борис старше’)
Else if (V>B) and (V>A) then
Writeln (‘Виктор старше’)
End.
Другие вопросы из категории
Цена 1 куб. метра леса в январе — N долларов. Прогнозируемая инфляция составляет 17% в год. Рассчитайте стоимость (в руб., при этом курс доллара m — рублей/$ ) 1 куб. метра в конце года (декабрь).
Читайте также
Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
Заранее спасибо большое)
Вывести список книг, изданных после 2003 года.
2)составить программу, организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
Составить программу к. т. запрашивает буквы, пока не введут точку и находит количество букв «0».
Половине возраста мужчины+7, возраст мужчины определяется соответственно как удвоенный возраст девушки-14. В начале выполнения программы на экране должен появиться вопрос МУЖЧИНА или ЖЕНЩИНА? ВВЕДИТЕ М, если Вы мужчина, или Ж, если женщина и свой возраст. В зависимости от ответа выводятся соответствующие рекомендации.
2. Составить программу для упорядоченное двух элементов по убыванию.
Высший разум (1263700) port port, недосмотрел — оптимизировал и видать лишку выкинул. Это вроде исправляет ошибку: def age_to_str(n): return ‘лет’ if n // 10 % 10 == 1 or n % 10 in [0, 5, 6, 7, 8, 9] else ‘год’ if n % 10 == 1 else ‘года’ n = int(input(‘Возраст>’)); print(f’ ‘)
Ввести последовательно возраст антона бориса и виктора
Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
Заранее спасибо большое)
-
program chik;
Var a, b,c:integer;
Begin
Write (‘Возраст Антона:’);
Readln (A);
Write (‘Возраст Бориса:’);
Readln (B);
Write (‘Возраст Виктора:’);
Readln©;
If (a>b) and (a>c) then writeln (‘Антон старше всех.’);
If (b>a) and (b>c) then writeln (‘Борис старше всех.’);
If (c>b) and (c>a) then writeln (‘Виктор старше всех.’);
If (a=b) and (b>c) then writeln (‘Антон и Борис старше Виктора’);
If (a=c) and (c>b) then writeln (‘Антон и Виктор старше Бориса’);
If (b=c) and (b>a) then writeln (‘Виктор и Борис старше Антона’);
End.
Ввести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше. Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
Заранее спасибо большое)
-
Попроси больше объяснений Следить Отметить нарушение
Begin
Var a := ReadInteger (‘Возраст Антона:’);
Var b := ReadInteger (‘Возраст Бориса:’);
Var v := ReadInteger (‘Возраст Виктора:’);
If (a > b) and (a > v) then begin Println (‘Антон старше всех’);exit; end;
If (b > a) and (b > v) then begin Println (‘Борис старше всех’);exit; end;
If (v > a) and (v > b) then begin Println (‘Виктор старше всех’);exit; end;
If (a > v) and (a = b) then begin Println (‘Антон и Борис старше Виктора.’);exit; end;
If (a > b) and (a = v) then begin Println (‘Антон и Виктор старше Бориса.’);exit; end;
If (v > a) and (v = b) then begin Println (‘Виктор и Борис старше Антона.’);exit; end;
If (a = b) and (b = v) then begin Println (‘Виктор, Борис и Антон одного возраста.’);exit; end;
End.
Другие вопросы из категории
ZnYA Ученик 136 2 года назад.
Govorun-otveti. ru