Question

Запишите на языке Паскаль программу решение задачи используя оператор for

Answer 1

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.