Предмет:
ИнформатикаАвтор:
mr. cleanvar
a,b : Integer;
begin
Write('Введите числа: ');
ReadLn(a, b);
if a = b then
Writeln('Числа равны')
else
if a > b then
WriteLn('Число ', a, ' больше ', b)
else
Writeln('Число ', a, ' меньше ', b);
end.
Автор:
vernong5nzНа языке КуМир
алг дз
нач
цел a, b, c
вывод 'Введите первое число: '
ввод a
вывод 'Введите второе число: '
ввод b
если a = b то
вывод 'Число ', a, ' равно числу ', b
все
если a > b то
вывод 'Число ', a, ' больше числа ', b
всё
если a < b то
вывод 'Число ', a, ' меньше числа ', b
все
кон
Автор:
adelynplj5Добавить свой ответ
Предмет:
МатематикаАвтор:
abbeyvgmaОтветов:
Смотреть
Предмет:
АлгебраАвтор:
barclaypqomОтветов:
Смотреть
Предмет:
Українська моваАвтор:
keith380Ответов:
Смотреть