С клавиатуры вводится 2 числа, если они оба больше 5, то найти их полусумму, иначе удвоенное произведение.

Question

Информатика

Вышеслав

25 июля, 02:30

С клавиатуры вводится 2 числа, если они оба больше 5, то найти их полусумму, иначе удвоенное произведение.

+1

Ответы (1)

Знаешь ответ?

Ванята · Answer 1

Program s123;

Var a, b:real;

Begin

Writeln ('Введите значения 2 чисел');

Readln (a, b);

If (a>5) and (b>5) Then a: = (a+b) / 2 Else a: = (a*b) * 2;

Writeln (a);

End.