Напишите программу которая получает с клавиатуры возрасты трех человек антона бориса и виктора

Ввести последовательно возраст антона бориса и виктора

Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример:
Возраст Антона: 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.

Пример:
Возраст Антона: 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 куб. метра в конце года (декабрь).

Уроки 16 — 17
§19. Ветвления

Уровень A. Напишите программу, которая получает с клавиатуры два целых числа и находит наибольшее и наименьшее из них.

Пример:

Введите два числа: 1 5

Наименьшее число 1

Наибольшее число 5

Уровень B. Напишите программу, которая получает с клавиатуры четыре целых числа и находит наибольшее из них.

Пример:

Введите четыре числа: 1 2 5 3

Наибольшее число 5

Уровень C. Напишите программу, которая получает с клавиатуры возрасты трёх человек (Антона, Бориса и Виктора) и определяет, кто из них старше.

Пример:

Возраст Антона: 15

Возраст Бориса: 17

Возраст Виктора: 16

Ответ: Борис старше всех.

Пример:

Возраст Антона: 17

Возраст Бориса: 17

Возраст Виктора: 16

Ответ: Антон и Борис старше Виктора.

Следующая страница Практическая работа № 12 «Сложные условия»

Cкачать материалы урока

Помогите:
Практическая работа №3. Ветвления
Уровень A. Напишите программу, которая получает с клавиатуры два целых числа и находит наибольшее и наименьшее из них.
Пример:
Введите два числа: 1 5
Наименьшее число 1
Наибольшее число 5
Уровень B. Напишите программу, которая получает с клавиатуры четыре целых числа и находит наибольшее из них.
Пример:
Введите четыре числа: 1 2 5 3
Наибольшее число 5
Уровень C. Напишите программу, которая получает с клавиатуры возрасты трёх человек (Антона, Бориса и Виктора) и определяет, кто из них старше.
Пример:
Возраст Антона: 15
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Борис старше всех.
Пример:
Возраст Антона: 17
Возраст Бориса: 17
Возраст Виктора: 16
Ответ: Антон и Борис старше Виктора.
На языке паскаль.

Program p1;
var a,b:integer;
begin
writeln (‘Введите 2 числа’);
readln (a,b);
if a=b then writeln (‘Числа одинаковые’)
else if a>b then
begin writeln (‘Наибольшее число ‘,a);
writeln (‘Наименьшее число ‘,b);
end
else begin writeln (‘Наибольшее число ‘,b);
writeln (‘Наиментшее число 10 ‘,a);
end;
end.

program p2;
var a,b,c,d:integer;
begin
writeln (‘Введите 4 числа’);
readln (a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a<c then a:=c;
writeln (‘Наибольшее число ‘,a);
end.

program p3;
var a,b,v:integer;
begin
writeln (‘Введите возрасты людей:’);
write (‘Антона — ‘);
readln (a);
write (‘Бориса — ‘);
readln (b);
write (‘Виктора — ‘);
readln (v);
if (a=b) and (a=v) then writeln (‘Все люди одного возраста’);
if (a=b) and (a>v) then writeln (‘Антон и Борис старше Виктора’);
if (a=b) and (a<v) then writeln (‘Виктор старше всех’)
else if (v>a) and (v>b) then writeln (‘Виктор старше всех’);
if (b=v) and (b>a) then writeln (‘Борис и Виктор старше Антона’);
if (b=v) and (b<a) then writeln (‘Антон старше всех’)
else if (a>v) and (a>b) then writeln (‘Антон старше всех’);
if (a=v) and (a>b) then writeln (‘Антон и Виктор старше Бориса’);
if (a=v) and (a<b) then writeln (‘Борис старше всех’)
else if (b>v) and (b>a) then writeln (‘Борис старше всех’);
end.

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.

Напишите программу которая получает с клавиатуры возрасты трех человек антона бориса и виктора