Володковский
6 год назад
Найти максимум из трех целых чисел Паскалем.
ОТВЕТЫ
Emiliya
Oct 24, 2020
Var A,B,C:integer;
Begin
ReadLn(A,B,C);
if A<B then A:=B;
if A<C then A:=C;
Write(A)
End.
Begin
ReadLn(A,B,C);
if A<B then A:=B;
if A<C then A:=C;
Write(A)
End.
771
Смежные вопросы:
