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

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

Задать свой вопрос
2 ответа
Var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
if a+bgt;100
 then begin a:=a-20; b:=b-20; end;
writeln('a = ',a,' b = ',b);
end.

Пример:
a, b:
54 81
a = 34 b = 61
Евгения
СПАСИБООООООООООО

program zadacha;

var

a,b,sum: real;

begin

writeln('vvedite dva chisla');

readln(a,b);

sum:=a+b;

if sum gt;100 then begin

a:=a-20;

b:=b-20;

end;

writeln('a=',a, ' b=',b);

end.

Василиса Лопшакова
кажется, тут нет смысла вводить "По другому", поэтому что и так занимательно поглядеть, чему будут одинаковы новые значения переменных.
Анжелика Азаренок
СПАСИБОООООООООО
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт