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

Question

Информатика

Вива

3 октября, 19:17

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

+2

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