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

Question

Матяха

25 апреля, 07:21

+4

Ответы (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.