Ответы
Ответ дал:
0
var a,b:integer;
begin
Write('Введите первое число: ');
readln (a);
Write('Введите второе число: ');
readln (b);
if a>b then WriteLn(a,'>',b,' ',a,' + 2 = ',a+2,' ',b,' + 2 = ',b+2)
else WriteLn(a,'<',b,' ',a,' * 3 = ',a*3,' ',b,' * 3 = ',b*3)
end.
Программа не учитывает ситуацию, когда числа равны.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад