Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Найти максимальное из двух заданных на Паскале

Даны два числа X, Y. Определить и вывести на печать большее из них.
Program 1;
Var x, y, max: real;
Begin
Readln (x,y);
If x > y then max:=x else max:=y;
Writeln ('max=',max)
End.
Второй способ решения.
Program 2;
Var x, y, max: real;
Begin
Readln (x,y);
max:=y;
If x > y then max:=x;
Writeln ('max=',max)
End.
Третий способ решения.
Program 2;
Var x, y, max: real;
Begin
Readln (x,y);
max:=x;
if x < y then max:=y;
Writeln ('max=',max)
End.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]