var
n,i:word;
k:byte;
x,vsego:real;
begin
vsego:=0;
Writeln('Введите кол-во дней');readln(n);
Writeln('Введите начальное кол-во км);readln(x);
Writeln('Введите %);readln(k);
for i:=1 to n do begin
vsego:=vsego+x;
x:=x+x*k/100;
end;
Writeln(Vsego);
end;
Задача: Какой путь пробежит спортсмен за n дней?
Начав тренировки спортсмен пробегал x км, каждый день он увеличивал дневную норму на k процентов, нормы предыдущего дня.
Какой путь пробежит спортсмен за n дней?
Какой путь пробежит спортсмен за n дней?
Код:
[COLOR=red]пользуйся тэгами [ code ] [ /code ][/COLOR]
[QUOTE=Dimarik_S77]var
n,i:word;
k:byte;
x,vsego:real;
begin
vsego:=0;
Writeln('Введите кол-во дней');readln(n);
Writeln('Введите начальное кол-во км);readln(x);
Writeln('Введите %);readln(k);
for i:=1 to n do begin
vsego:=vsego+x;
x:=x+x*k/100;
end;
Writeln(Vsego);
end;[/QUOTE]ДВА бага
n,i:word;
k:byte;
x,vsego:real;
begin
vsego:=0;
Writeln('Введите кол-во дней');readln(n);
Writeln('Введите начальное кол-во км);readln(x);
Writeln('Введите %);readln(k);
for i:=1 to n do begin
vsego:=vsego+x;
x:=x+x*k/100;
end;
Writeln(Vsego);
end;[/QUOTE]ДВА бага