Даны два числа а, в. Если оба они отрицательны, то вычислить их произведение, в противном случае найти их сумму

Question

Информатика

Артемич

14 февраля, 11:13

Даны два числа а, в. Если оба они отрицательны, то вычислить их произведение, в противном случае найти их сумму

+1

Ответы (1)

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

Агафоклия · Answer 1

Program al;

var a, b:integer;

begin

writeln ('a=') ;

readln (a) ;

writeln ('b=') ;

readln (b) ;

if (a<0) and (b<0) then writeln (a*b)

else

writeln (a+b) ;

readln;

end.