Keranis
4 год назад
ребята, Пожалуйста посчитайте с информатикой, 10 класс. вычислите сумму первых n элементов
ОТВЕТЫ
Эмиль
Oct 24, 2020
program srne;
uses
crt;
var
i, n: integer;
var
s: real;
begin
s := 0;
writeln('Введите n:');
readln(n);
for i := 1 to n do
if odd(i) then
s := s + (1 / i)
else
s := s - (1 / i);
writeln('Сумма первых n членов равна: ', s);
readln;
end.
466
Смежные вопросы: