Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ
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.
487
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам