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

Question

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

Answer 1

Ответ:

program zz1;

var a, b:integer; // задаем переменные целого типа

begin

write(' введите первое число '); // вводим с клавиатуры первое число

read(a);

write(' введите второе число '); // вводим с клавиатуры второе число

read(b);

if a * b < 0 // проверяем, если произведение этих чисел будет отрицательным, то

then write(' произведение двух чисел умноженное на -2 = ', a * b * -2) else write(' произведение двух чисел увеличенное на 3 = ', a + b + 3);

// выводим ответ в зависимости от правильности условия

end.