Ответы
Ответ дал:
0
begin
var (a,b):=ReadInteger2('Введите a,b->');
if a>b then Writeln(a,' больше.') else
if a=b then Writeln(a,' равно ',b) else Writeln(b,' больше.');
end.
Программа - pascal
Похожие вопросы
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад