Для чего программа и как работает? 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.

mendygulkurman mendygulkurman    3   25.01.2021 13:16    0

Ответы
jhgtreedhhuuu jhgtreedhhuuu  25.01.2021 13:20

ответ:я хз сори

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика