Регистрация
sitnikova03
06.03.2023 03:40
Информатика
Есть ответ 👍

Решить задачу. Бассейны имеют объемы

174
329
Посмотреть ответы 1

Ответы на вопрос:

arun3
arun3
4,4(68 оценок)

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.

Популярно: Информатика