Ответы
Ответ дал:
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.
SolnyxPodsolnyx:
надеюсь правильно...
Вас заинтересует
3 месяца назад
3 месяца назад
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад