Для чего программа и как работает? Program qw;
var
n,z:integer;
i,sum:real;
BEGIN
writeln('введите N');
readln (N);
while (z<>n) do
begin
z:=z+1;
i:=1/z;
sum:=sum+i;
writeln (sum);
end;
END.

Question

Информатика: Для чего программа и как работает? Program qw; var n,z:integer; i,sum:real; BEGIN writeln( введите N ); readln (N); while (z n) do begin z:=z+1; i:=1/z; sum:=sum+i; writeln (sum); end; END.

Зефирка170504 · Answer

ответ:я хз сориОбъяснение:...

Для чего программа и как работает? Program qw; var n,z:integer; i,sum:real; BEGIN writeln('введите N'); readln (N); while (z<>n) do begin z:=z+1; i:=1/z; sum:=sum+i; writeln (sum); end; END.

Для чего программа и как работает? Program qw;
var
n,z:integer;
i,sum:real;
BEGIN
writeln('введите N');
readln (N);
while (z<>n) do
begin
z:=z+1;
i:=1/z;
sum:=sum+i;
writeln (sum);
end;
END.