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

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

Question

Аглая

5 ноября, 09:02

+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 числа, найти их сумму и произведение, если произведение окажется положительным, то выдать его на экран, а иначе выдать на экран сумму.