Регистрация
plalbina
17.10.2022 20:41
Информатика
Есть ответ 👍

молю мне
Задание два
есть пример в левой части

203
310
Посмотреть ответы 1

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

vikasm2001
vikasm2001
4,4(66 оценок)
Если power изучали, то можно так: var     k: integer;     p: real; begin for k: =1 to 500 do   p: =p+power(-1,k+1)/(2*k-1); writeln('pi/4 = ',p) end.  если не изучали, пиши, сделаю по-другому.версия для турбо: program rd; var      k,z: integer;     p: real; begin z: =1; for k: =1 to 500 do   begin   p: =p+z/(2*k-1);   z: =-z   end; writeln('pi/4 = ',p) end.

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