Помогите записать задачу в Turbo Pascalе Начав тренировки, лыжник в первый день пробежал 10км. Каждый следующий день он увеличивал пробегна 10% от пробега предыдущего Определить: а) В какой день он пробежит больше 20км б) В какой день суммарный пробег за все дни превысит 100км
program ncdkj; uses crt; var a,b,p,d,sd:integer; begin clrscr; a:=10; b:=10; d:=1; sd:=1; p:=10*0,1; repeat a:=a+p; d:=d+1; until a>20; repeat b:=b+p; sd:=sd+1; s:=s+b; until s>100; case sd mod 7 of 0:writeln('сумма 100 км в 7'); 1:writeln('сумма 100 км в 1'); 2:writeln('сумма 100 км в 2'); И так до шести case d mod 7 of 0:writeln('20 км в 7'); 1:writeln('20 км в 1'); 2:writeln('20 км в 2'); И так до шести readln; end. Надеюсь второе правильно понял, вроде должно работать
