Помгие Составить программу нахождения и вывода на экран наибольшего из двух целых чисел.
Answers & Comments
NaaMan
//PascalABC.Net //NaaMan var a, b, res : integer; begin write('Введите числа а и b: '); readln(a, b); res := a; if (b > a) then res := b; writeln('Максимальное из них - ', res); end.
Answers & Comments
//NaaMan
var
a, b, res : integer;
begin
write('Введите числа а и b: ');
readln(a, b);
res := a;
if (b > a) then res := b;
writeln('Максимальное из них - ', res);
end.