С помощью Паскаля НАЙТИ СУММУ:
1/1+1/2+1/3...1/n
program P1;
uses
crt;
var
n,i : integer;
summ : real;
begin
clrscr;
write(N = );
read(n);
summ := 0;
for i := 1 to n do
summ := summ + 1/i;
writeln(Otvet: ,summ);
readln;
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
