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

Question

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

Answer 1

Var a,b:integer;
begin
writeln('a, b:');
readln(a,b);
if a+b>100
 then begin a:=a-20; b:=b-20; end;
writeln('a = ',a,' b = ',b);
end.

Пример:
a, b:
54 81
a = 34 b = 61

Comments

СПАСИБООООООООООО

Answer 2

program zadacha;

var

a,b,sum: real;

begin

writeln('vvedite dva chisla');

readln(a,b);

sum:=a+b;

if sum >100 then begin

a:=a-20;

b:=b-20;

end;

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

end.

---

Comments

кажется, здесь нет смысла вводить "ИНАЧЕ", потому что и так интересно посмотреть, чему будут равны новые значения переменных.

---

СПАСИБОООООООООО