1)Спортсмен пробежал 10 км за 1 день каждый следующий день он пробегает на 10% больше сколько он пробежит за N дней!2)Найти

1) Пробег за N дней.

program sport;

var d,s:real;

n,k:integer;

begin

write(\'Enter N\');

readln(n);

d:=10;k:=1;s:=10;

while k<n do

begin

d:=d+d*0.1; s:=s+d; k:=k+1;

end;

writeln(\'s = \',\' \',s:0:2, \'km\');

end.

2) Нахождение числа делителей.

program dividers;

var i,n,k: integer;// i - счетчик, n - число, k - число делителей  у n

begin

write(\'Enter N \'); // Ввод числа

readln(n);

for i:=1 to n do if n mod i = 0 then k:=k+1; 

// Если заданное число N делится на число i без остатка, то число 

// делителей k увеличивается на единицу 

write(k);

end.