Question

Циклические алгоритмы и разработка программыЦиклы с параметрамиРазработать схему алгоритма (блок схему), написать программный код на языке паскаль, используя оператор FOR.

Answer 1

const
  n = 7;

var
  y: real;
  i: integer;

begin
  for i := 1 to n do
    y := y + n / i;
  writeln(y);
end.