Регистрация
Nuriza2002
12.04.2023 16:02
Информатика
Есть ответ 👍

Напишите программу для нахождения суммы ряда 1+1/3+1/5+/15

233
500
Посмотреть ответы 2

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

artem1514
artem1514
4,5(4 оценок)

var i, a: integer;

begin a: =0;

        i: =1

        while i < 15 do

        begin a: =a+(1/i);

                  i: =i+2;

          end;

          writeln(a);

end.

asdgvhmh
asdgvhmh
4,8(88 оценок)
Program znanija; var  i,n: integer; a: array[1..10] of integer; beginfor i: =1 to 10 do begin  writeln('введите ',i,'-ый элемент массива');   read(a[i]);   if a[i] mod 2 = 1 then a[i]: =a[i]+1;   end; writeln; writeln;   writeln('новый массив: '); for i: =1 to 10 do    writeln(a[i],'(',i,')'); end.    

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