Составьте программу на языке Pascal для решения задачи. С клавиатуры вводятся два числа. Если их произведение отрицательно, необходимо умножить его на 8, в противном случае увеличить его в 1,5 раза. Результат вывести на экран
Составьте программу на языке Pascal для решения задачи. С клавиатуры вводятся два числа. Если их произведение отрицательно, необходимо умножить его на 8, в противном случае увеличить его в 1,5 раза. Результат вывести на экран
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MultiplyOrIncrease;
var
num1, num2, result: real;
begin
write('Enter the first number: ');
readln(num1);
write('Enter the second number: ');
readln(num2);
result := num1 * num2;
if result < 0 then
result := result 8
else
result := result 1.5;
writeln('The result is: ', result:0:2);
end.