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

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

Задать свой вопрос
1 ответ
var a,b,c:real; begin writeln (Введите числа); readln (a,b); c:=a+b; if cgt;100 do c:=c/2 else c:=c*2; write (c) end. Приставку ln можно убрать.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт