Даны два числа, отличных друг от друга. Найти большее число. Вводные данные: а и b - два числа, где аb. Выходные данные: значение большего числа.

Question

Информатика

Магхэдиа

22 мая, 14:22

Даны два числа, отличных друг от друга. Найти большее число. Вводные данные: а и b - два числа, где аb. Выходные данные: значение большего числа.

+4

Ответы (2)

Знаешь ответ?

Загила · Answer 1

program dvachisla;

var a, b:integer;

begin

write ('vvedite chislo a');

read (a);

write ('vvedite chislo b');

read (b);

if a>b then write ('a bolshe b')

else write ('b bolshe a');

end.

Шамама · Answer 2

Var a, b integer;

Begin

Writeln ('Введите числа а и b');

Readln (a, b);

If a > b then

Writeln (a, ' больше чем ', b)

Else

Writeln (b, ' больше чем ', a)

End.