Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Помогите записать задачу в 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.

Надеюсь второе  правильно понял, вроде должно работать