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

Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
Оцени ответ

Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
Оцени ответ