Pevolotso
4 год назад
ребята, Пожалуйста посчитайте пожалуйста синформатикой, 10 класс.Вычислитесумму 1-х 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.
487
Смежные вопросы: