Предмет: Информатика, автор: lyudmilaloktev

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

Приложения:

Ответы

Автор ответа: Аноним
0
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.
Похожие вопросы
Предмет: Алгебра, автор: dsabaev654
Предмет: Русский язык, автор: Аноним