Паскаль, нач.уровень, с использованием цикла WHILE.
Определить минимальное Р при котором сумма 1/К для К от 1 до Р больше А (АБ=10).

Предыдущий
вопрос Следующий
вопрос

program MinSum;

var
A, P, K: Integer;
sum: Real;

begin
A := 10;
P := 1;
sum := 0;

while sum <= A do
begin
sum := 0;
K := 1;

end;

writeln('Минимальное значение P: ', P);
end.