Дано 2 числа. Если их сумма больше 100, то сумму уменьшить в 2 раза. В противном случае увеличить в 2 раза

Question

Евника

19 февраля, 20:03

+5

Ответы (1)

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

Василиска · Answer 1

Program n1;

var a, b, sum: real;

begin

readln (a, b) ;

sum:=a+b;

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

write (sum) ;

end.