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

Question

Информатика

Рося

22 апреля, 16:10

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

+4

Ответы (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.