Помощь - Поиск - Пользователи - Календарь
Полная версия: Циклический оператор
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Chezzy_Chezz
Написать прог-у которая вычисляет сумму первых n членов ряда 1+1/2+1/3...
Freedom
Вот
var i,n:integer;
s:real;
begin
writeln('Vvedite n');
readln(n);
s:=0;
for i:=1 to n do s:=s+(1/i);
writeln(s:10:10);
readln;
end.
volvo
Надоело закрывать глаза на безответственность отвечающих.

Это неполное решение... Инициализации переменных нет. Приравнивается к ошибке.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.