Question

Решить задачу двумя способами: с использованием цикла с параметром и одного из двух других циклов.
Номер 9.

Answer 1

var
  i,n:integer;
  s:real;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do
   s:=s+(i+1)/i;
writeln('S=',s);  
end.

var
  i,n:integer;
  s:real;
begin
write('Введите n: ');
readln(n);
i:=1;
repeat
  s:=s+(i+1)/i;
  i:=i+1;
  until i>n;
writeln('S=',s);  
end.