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

Question

Максимильянка

9 января, 05:29

+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.