Question

Составьте программу на языке Pascal для решения задачи. С клавиатуры вводятся два числа. Если их произведение отрицательно, необходимо умножить его на 8, в противном случае увеличить его в 1,5 раза. Результат вывести на экран

Answer 1

PascalABC.NET

Ответ:

• begin
• var p := ReadReal*ReadReal;
• p *= p<0 ? 8 : 1.5;
• p.Print
• end.

Пример работы: