Решаем задачи Абрамян на Паскале. While13

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

Решение:

program While13;
var
  Temp, A:Real;
  K :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  K:=0;
  Temp:=0;
  while Temp<=A do
  begin
   inc(K,1);
   Temp:=Temp+1/K;
  end;
  Writeln(K,' ',Temp);
end.

program While13;

var

Temp, A:Real;

K :Integer;

begin

Write('Введите A: ');

Readln(A);

K:=0;

Temp:=0;

while Temp<=A do

begin

inc(K,1);

Temp:=Temp+1/K;

end;

Writeln(K,' ',Temp);

end.

Другие задачи из раздела While можно посмотреть здесь.

Комментарии 3

uses PT4;
var temp,a: Real;
    k: Integer;
begin
  Task('While13');
Read(a);
  while temp<=a do
      begin
         inc(k,1);
         Temp:=temp+1/k;
      end;
Write(k,temp);
end.

uses PT4;

var temp,a: Real;

k: Integer;

begin

Task('While13');

Read(a);

while temp<=a do

begin

inc(k,1);

Temp:=temp+1/k;

end;

Write(k,temp);

end.

Ответить

Anton

19.12.2014 в 17:32

Изменил на твоё решение.

Ответить

Кирилл

18.12.2014 в 01:48

и «A» — вещественное

Ответить

Решаем задачи Абрамян на Паскале. While13

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ