var
s,s1:real;
k:integer;
begin
s:=10;
k:=1;
while s<20 do
begin
s:=s*1.1;
k:=k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s:=10;
s1:=10;
k:=1;
while s<200 do
begin
s:=s+s1*1.1;
s1:=s1*1.1;
k:=k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
end.
231
110111101
435
1605
110101001010
А7
7) ?
5F, 153, 128
Вот) я конечно не уверена, что правильно, но скорее всего так