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

Question

Феогния

29 ноября, 15:33

+2

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