Ребята с информатикой, 10 класс. вычислите сумму первых n элементов​


Ребята с информатикой, 10 класс. вычислите сумму первых n элементов​

sasha11225 sasha11225    1   14.09.2020 19:28    3

Ответы
yan2005byp06ne2 yan2005byp06ne2  15.10.2020 21:20

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика