А=
Альберт =)
Кто поможет решить задачку (Паскаль) цикл. while! Помогите пожалусто!!
Дано число A (>1). Вывести наименьшее из целых чисел K, для
которых сумма 1 + 1/2 + .+1/K будет больше A, и саму эту сумму.
Дано число A (>1). Вывести наименьшее из целых чисел K, для
которых сумма 1 + 1/2 + .+1/K будет больше A, и саму эту сумму.
var k:integer; a,s:real;
begin
write('A: '); readln(a); s:=0;
for k:=1 to maxint do begin s:=s+1/k; if s>a then break end;
writeln('K=',k,' Sum=',s); readln
end.