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

Ответы

Ответ дал: зеленков
0
Var a,b integer;
Begin
Writeln(‘Введите числа а и b’);
Readln(a,b);
If a > b then
Writeln(a, ‘ больше чем ‘, b)
Else
Writeln(b, ‘ больше чем ‘, a)
End.
Ответ дал: зеленков
0
Го
Ответ дал: зеленков
0
Ток я вопроса не понял
Ответ дал: Gridsess
0
давай потом:3 в другой раз:3
Ответ дал: Gridsess
0
уже урок окончен :3
Ответ дал: зеленков
0
))
Ответ дал: rabichka
0

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.

Вас заинтересует