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

Question

Никита Волков

Информатика

5 февраля, 04:39

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

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Василиса Кольцова · Answer 1

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
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.