Помогите решить задачу на языке программирования Pascal abc. Дано два числа x и y. Найти произведение этих чисел, если выполняется условие x

Question

Машуня

7 мая, 08:37

+2

Ответы (1)

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

Виолетка · Answer 1

Var

x, y: real;

begin

x : = 4.3; y : = 2.6;

if x < y then Writeln (x * y)

else Writeln (sqr (x - y))

end.

Тестовое решение:

2.89