Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны".

целочисленный тип - integer

Как правильно сделать?

Question

Информатика

Ксенофонт

21 апреля, 16:03

Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны".

целочисленный тип - integer

Как правильно сделать?

+1

Ответы (1)

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

Нинуня · Answer 1

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

Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны".целочисленный тип - integerКак правильно сделать?

Вводится два целых числа a и b; вывести, какое из них большее. Если числа равны, тогда вывести "числа равны".

целочисленный тип - integer

Как правильно сделать?