Предмет: Информатика,
автор: 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.
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
Предмет: Русский язык,
автор: Аноним
Предмет: Химия,
автор: Аноним
Предмет: География,
автор: Hahahahahahaa
Предмет: Математика,
автор: kate1234567890kate