Задание
Выберите правильно написанный код, Даны два числа. Найти большее из них.
- program zadacha_1;
var max,x,y:integer;
Begin
writeln\('Введите число x '\); readln\(x\);
writeln\(' Введите число y '\); readln\(y\);
if x>y then max:=x else max:=y;
writeln\('большее из двух = ',max\);
End. - program zadacha_1;
var max,x,y:integer;
Begin
writeln\('Введите число x '\); readln\(x\);
writeln\(' Введите число y '\); readln\(y\);
if x<y then max:=x else max:=y;
writeln\('большее из двух = ',max\);
End. - program zadacha_1;
Begin
writeln\('Введите число x '\); readln\(x\);
writeln\(' Введите число y '\); readln\(y\);
if x>y then max:=x else max:=y;
writeln\('большее из двух = ',max\);
End.