решить задачу,очень нужно
16 вариант
даю 50 -70 балов
pascal abc

173

321

Посмотреть ответы 1

Ответы на вопрос:

asya343434

Информатика

4,6(82 оценок)

Var n1,n2,n3,n4,n5: integer; begin readln(n1,n2,n3,n4,n5); if (n1> n2) and (n1> n3) and (n1> n4) and (n1> n5) then writeln('максимальное число: ',n1) else if (n2> n1) and (n2> n3) and (n2> n4) and (n2> n5) then writeln('максимальное число: ',n2) else if (n3> n1) and (n3> n2) and (n3> n4) and (n3> n5) then writeln('максимальное число: ',n3) else if (n4> n1) and (n4> n3) and (n4> n2) and (n4> n5) then writeln('максимальное число: ',n4) else writeln('максимальное число: ',n5); end.