Question

Пожалуйста помогите информатика .Можете прислать фотку компа .

Answer 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.

Answer 2

Вот в скобочках что писать 15,16,17 или возраст Антона

Answer 3

в каких скобочках ???

Answer 4

Readlnteger (‘15’)???
Readlnteger ( возраст Антона )???

Answer 5

ты там можешь написать все что угодно,это просто выводимый текст ,но лучше всего писать ,как написано выше для понятной работы с программой другими пользователями

Answer 6

Хорошо