Валерий
6 год назад
Дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в противном случае просто их выдать ( СРОЧНОООО ПЖЖЖПЖПЖПЖ 20 БАЛЛООВ )
ОТВЕТЫ
Naan
Jul 8, 2019
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
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.
151
Смежные вопросы:
