дано 2 числа уменьшить их на 20, если сумма чисел больше 100, в противном случае просто их выдать ( СРОЧНОООО ПЖЖЖПЖПЖПЖ 20 БАЛЛООВ )
Ответы
Ответ дал:
0
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.
Приложения:
Ответ дал:
0
кажется, здесь нет смысла вводить "ИНАЧЕ", потому что и так интересно посмотреть, чему будут равны новые значения переменных.
Ответ дал:
0
СПАСИБОООООООООО
Ответ дал:
0
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
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
Приложения:
Ответ дал:
0
СПАСИБООООООООООО
Похожие вопросы
2 года назад
6 лет назад
9 лет назад