Задание:
Введены 2 числа, выведите их произведение, если первое больше второго и разность их в противном случае
Решение:
var a,b: integer; begin readln (a,b); if (a>b) then writeln (a) else begin writeln (b); end; readln; end.
Знаете другой ответ?
Введены 2 числа, выведите их произведение, если первое больше второго и разность их в противном случае
var a,b: integer; begin readln (a,b); if (a>b) then writeln (a) else begin writeln (b); end; readln; end.
Знаете другой ответ?