Комментарии: Решаем задачи Абрамян на Паскале. While14

Автор: Bronislav

Bronislav — Wed, 14 Feb 2018 13:14:16 +0000

while Temp<A do

1	while Temp<A do

Автор: Anton

Anton — Fri, 19 Dec 2014 13:36:30 +0000

В ответ на Кирилл. Поправил. Было: Writeln(K,' ',Temp); Стало: Writeln(K-1,' ',Temp-1/K);

Автор: Кирилл

Кирилл — Wed, 17 Dec 2014 22:03:52 +0000

uses PT4;
var temp,a: Real;
    k: Integer;
begin
  Task('While14');
 Read(a);
  k:=0;
  temp:=0;
  While temp<=a do
      begin
         inc(k,1);
         temp:=temp + 1/k;
      end;
  Write(k-1,temp - 1/k);
end.

uses PT4;

var temp,a: Real;

k: Integer;

begin

Task('While14');

Read(a);

k:=0;

temp:=0;

While temp<=a do

begin

inc(k,1);

temp:=temp + 1/k;

end;

Write(k-1,temp - 1/k);

end.