var
a,b:integer;
begin
write('Введите в одной строке два целых числа и нажмите <Enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a>b then writeln(a,' больше')
else writeln(b,' больше')
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a,b:integer;
begin
write('Введите в одной строке два целых числа и нажмите <Enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a>b then writeln(a,' больше')
else writeln(b,' больше')
end.
нехорошо, так как может оказаться что с больше обоих, тогда вместо с печатается неверный ответ а
надо доп проверку
if a>b then
if a>c then
write(a)
else write(c)
else
if b>c then write(b)
else write(c)
*только разумеется тут надо поправить правильность написания кода))