Введены 2 числа, выведите их произведение, если первое больше второго и разность их в противном случае

Question

Сильвестр

5 июня, 03:13

+3

Ответы (2)

Знаете ответ?

Гема · Answer 1

var a, b:integer; begin readln (a, b) ; if (a>b) then writeln (a) else begin writeln (b) ; end; readln; end.

Адель · Answer 2

var a, b, s:integer;

begin

readln (a, b) ;

if (a>b) then s:=a*b else s:=a-b;

writeln (s) ;

end.