Пожалуйста помогите. Cреда действия "Паскаль". Составить блок схему и написать при этом саму программу. S=1+
.
Ответы
Ответ дал:
0
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.
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.
Приложения:
![](https://st.uroker.com/files/7c7/7c7d9d8075d200b34171c25a957ed80d.png)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад