дано 2 числа уменьшить их на 20, если сумма чисел больше

Дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в неприятном случае просто их выдать ( СРООООЧООООООО ПЖЖЖ )

Задать свой вопрос
1 ответ
Var
A.b:integer;
Begin
Readln(a.b);
If a+bgt;100 then
Writeln(a-20,' ',b-20)
Else
Writeln(a,' ',b)
End.
Это изи
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт