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

Question

Информатика

Агрипинка

4 марта, 08:26

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

+1

Ответы (1)

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

Калерия · Answer 1

Program vetvlenie;

var a, b, c, d:integer;

begin

writeln ('Введи 2 числа: ') ;

readln (a, b) ;

c:=a*b;

if c<0 then d:=c * (-2)

else

d:=c*3;

writeln (d) ;

end.