Ввести два числа если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза. помогите решить информатику!

Question

Нася

26 июня, 12:57

+5

Ответы (1)

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

Петяха · Answer 1

Var

a, b: real;

begin

readln (a, b) ;

a : = a + b;

if a > 100 then a : = a / 2 else a : = a * 2;

write (a) ;

end.