Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны". целочисленный тип - integer Как правильно сделать?
Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны".
целочисленный тип - integer
Как правильно сделать?
Гость
Ответ(ы) на вопрос:
ГостьVar a, b :Integer;
Begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a>b then writeln('Число a = ',a,' больше b = ',b)
else if b>a then writeln('Число b = ',b,' больше a = ',a)
else writeln('Числа равны');
end.
Пример:
a = 5
b = 8
Число b = 8 больше a = 5
Не нашли ответ?
Похожие вопросы