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

Question

Сильвестр

7 ноября, 11:36

+2

Ответы (2)

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

Адель · Answer 1

var a, b, s:integer;

begin

readln (a, b) ;

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

writeln (s) ;

end.

Гема · Answer 2

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