Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом саму программу. S=1+ $frac{1}{2}+ frac{1}{3} + frac{1}{4} +... frac{1}{n}$ .

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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Найти другие ответы

Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом саму программу. S=1+.