
Soasivfac
6 год назад
Информатика - Введены два числа нужно определить больше из них либо написать что числа равны
ОТВЕТЫ

Sagepnad
Jul 25, 2019
Решение:
var
a,b:integer;
begin
write(Введите два числа: );readln(a,b);
if agt;b then writeln(Первое число больше, чем второе)
else if alt;b then writeln(Второе число больше, чем первое)
else writeln(Числа равны);
end.
Проверил на Паскале, работает 100
var
a,b:integer;
begin
write(Введите два числа: );readln(a,b);
if agt;b then writeln(Первое число больше, чем второе)
else if alt;b then writeln(Второе число больше, чем первое)
else writeln(Числа равны);
end.
Проверил на Паскале, работает 100
43