Для данного натурального числа N требуется вычислить сумму : 1 + 1/2 + + 1/3 + ... + 1/N. Постройте алгоритм и напишите 2 варианта программы на паскале с циклом -до и с циклом-пока
Для данного натурального числа N требуется вычислить сумму : 1 + 1/2 + + 1/3 + ... + 1/N. Постройте алгоритм и напишите 2 варианта программы на паскале с циклом -до и с циклом-пока
Гость
Ответ(ы) на вопрос:
Гость1) var
n,z:integer;
i,sum:real;
begin
readln (N);
while (z<>n) do
begin
z:=z+1;
i:=1/z;
sum:=sum+i;
writeln (sum);
end;
end. 2) var
n,z:integer;
i,sum:real;
begin
readln (N);
repeat
z:=z+1;
i:=1/z;
sum:=sum+i;
writeln (sum);
until (z=n);
end.
Не нашли ответ?
Похожие вопросы