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

Содержание

Ответ
Проверено экспертом
Другие вопросы из категории
Читайте также

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

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

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

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

program chik;
var a,b,c:integer;
begin
write(‘Возраст Антона:’);
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.

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

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

Попроси больше объяснений
Следить
Отметить нарушение

Annerose6 19.02.2014

Ответ

Проверено экспертом

//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 куб. метра в конце года (декабрь).

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

Ответ

Проверено экспертом

Другие вопросы из категории

Читайте также