Дано 2 числа, ввести на экран большее из них

Question

Информатика

Моля

10 октября, 08:25

Дано 2 числа, ввести на экран большее из них

+5

Ответы (1)

Знаете ответ на вопрос?

Аввакум · Answer 1

Var

a, b:integer;

begin

write ('введите два числа') ;

readln (a, b) ;

if a>b then writeln (a) ;

if b>a then writeln (b) ;

if a=b then writeln ('эти числа равны') ;

end.