Задача на while

[Dramus]

Дано число А (>1). Вывести наименьшее из целых чисел К, для которых сумма 1 + 1/2 + ... + 1/К будет больше А, и саму эту сумму.

Нужно решение...

[Armorer]

{s=1;k=1}
while A < S do 
begin
  inc(k);
  s := s + 1/k;
end;
k := 1/k;

{s, k - ответ}

[Dramus]

Извиняюсь, а можно подробнее, полный код задачи для турбо паскаля

[maladoy]

var s,a:real;k:integer;
begin
readln(a);
s:=1;k:=1;
while a < s do 
begin
  k:=k+1;
  s := s + 1/k;
end;
Writeln(k);
Writeln(s:6:3);
readln;
end.

[Dramus]

Спасибо большое, завтра опробую

[Dramus]

прописал все как дали, но задача не работает

[shelovek]

[QUOTE=maladoy;410896][CODE]
Помагите вот задание
дано число K и массив размера n. Найти 2 различноых элемента массива сумма которых наиболее близка к числу K, и вывести эти элементы в порядке возрастания их индексов! На Паскале до завтра а спаситееееееееееееееееее!

[shelovek]

ааааааааааааааа помагите

[shelovek]

Сообщение от Dramus

прописал все как дали, но задача не работает

конечно не будет работаь если while a < s do а S в начальный момент равен 1 а число a вводиться с клавиатуры, while срaзу имеет значение false и пропускаеться попробуй так while a>s do