Помогите информатику.

Ввести 2 числа, найти их сумму и произведение, если произведение окажется положительным, то выдать его на экран, а иначе выдать на экран сумму.

Question

Машара

26 декабря, 23:50

+4

Ответы (1)

Знаете ответ на вопрос?

Милетий · Answer 1

Var

a, b:integer;

begin

readln (a, b) ;

a:=a*b;

if a>0 then

writeln (a)

else

writeln (a+b)

end.

Помогите информатику.Ввести 2 числа, найти их сумму и произведение, если произведение окажется положительным, то выдать его на экран, а иначе выдать на экран сумму.