Дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в противном случае просто их выдать ( СРООООЧООООООО ПЖЖЖ )
Дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в противном случае просто их выдать ( СРООООЧООООООО ПЖЖЖ )
Гость
Ответ(ы) на вопрос:
ГостьVar
A.b:integer;
Begin
Readln(a.b);
If a+b>100 then
Writeln(a-20,' ',b-20)
Else
Writeln(a,' ',b)
End.
Это изи
Не нашли ответ?
Похожие вопросы