Помогите написать программу в Паскаль с помощью

Question

Помогите написать программу в Паскаль с помощью

Алена Фролова Знаток (343), закрыт 13 лет назад

Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня.
Какой суммарный путь пробежит спортсмен за 7 дней?

Дополнен 13 лет назад

с помощью while обязательно

Answer 1

Program sport;
var
a,s:integer;
begin
s:=10;
a:=1;
while a<=7 do
begin
s:=s+s*0,1;
a:=a+1;
end;
write('Summa puti = ',s);
end.

В каком месте у меня ошибки? вот у тебя тоже самое, но громоздко, много лишнего, в синтаксисе ошибки)

Answer 2

Вячеслав Гуру (4298) 13 лет назад

Хахаха, у Инги спроси :)

Answer 3

program rasst;
var norma, vsego: real;
den: integer;
begin
norma:=10;
vsego:=10:
den:=2;
while den<8 do begin
norma:=1.1*norma;
vsego:=vsego+norma;
den:=den+1
end;
writeln('Общий пробег=',vsego)
end.

В предыдущем ответе ошибки

Answer 4

var r,s,d: real;
begin
write ('d='); readln (d);
s:=10;
r:=2;
while r<=d do
begin
s:=s+s*0.1;
r:=r+1;
end;
write('Суммарный путь за ' ,d,' = ',s);
end.

Answer 5

program z1;

var F,N,R:real;
A:integer;

begin

Writeln('Введите кол-во дней тренировок');
readln(N);
F := 10;
A:=1;
R:=10;

while A<N do
begin
F:=(F*1.1);
R:=R+F;
A:=A+1;
end;

Writeln('За ',N,' дней, спортсмен пробежал ',R,' км');
end.

А у того пацана и правда ошибка