Написать программу в Паскале по ветвлениямВвести последовательно возраст Антона, Бориса и Виктора. Определить, кто из них старше

21.09.2017
Без рубрики

Помогите срочно нужно написать программу в Паскале по ветвлениям)

Ввести последовательно возраст Антона,Бориса и Виктора. Определить,кто из них старше. Пример: Возраст Антона: 15 Возраст Бориса: 17 Возраст Виктора: 16

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

Пример: Возраст Антона: 17 Возраст Бориса: 17 Возраст Виктора: 16

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

Заранее спасибо большое)

  • program chik;var a,b,c:integer;beginwrite(‘Возраст Антона:’);readln(A);write(‘Возраст Бориса:’);readln(B);write(‘Возраст Виктора:’);readln(C);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.