Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом саму программу. S=1+[latex] \frac{1}{2}+ \frac{1}{3} + \frac{1}{4} +... \frac{1}{n} [/latex].
Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом саму программу. S=1+[latex] \frac{1}{2}+ \frac{1}{3} + \frac{1}{4} +... \frac{1}{n} [/latex].
Гость
Ответ(ы) на вопрос:
Гостьvar s:real;
n,i:integer;
begin
s:=0;
write ('Введите n: ');
readln(n);
for i:=1 to n do s:=s+(1/i);
writeln ('S = ',s:0:2);
end.
Не нашли ответ?
Похожие вопросы