Вычислите сумму: 1+1/2+1/3+1/4+ ...+1/10. Решите задачу в 2 вариантах - с использованием операторов while и repeat.

Question

Информатика

Ростя

12 апреля, 05:13

Вычислите сумму: 1+1/2+1/3+1/4+ ...+1/10. Решите задачу в 2 вариантах - с использованием операторов while и repeat.

+2

Ответы (1)

Знаете ответ?

Лизуня · Answer 1

Var

i:integer;

s:real;

begin

i:=1; s:=1;

while i10 do

begin

i:=i+1;

s:=s+1/i;

end;

writeln ('Вычисленно с помощью цикла while: ', s) ;

i:=1; s:=1;

repeat

i:=i+1;

s:=s+1/i;

until i=10;

writeln ('Вычисленно с помощью цикла repeat: ', s)

end.