1)Спортсмен пробежал 10 км за 1 денек каждый последующий день он

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

program спорт;

var d,s:real;

n,k:integer;

begin

write(Enter N);

readln(n);

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

while klt;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.