Ответы
Ответ дал:
0
var a,b,i:integer;
c,d:real;
begin
a:=40000;
b:=5;
d:=a;
for i:=1 to 3 do begin
c:=d/20;
d:=d+c;
end;
writeln(d);end.
c,d:real;
begin
a:=40000;
b:=5;
d:=a;
for i:=1 to 3 do begin
c:=d/20;
d:=d+c;
end;
writeln(d);end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад