Войти Регистрация Спроси ai-bota

Сделать в паскале:
Найти Р:= 1/21/41/6…1/20

Показать ответ

Ответ:

Murat20051

16.01.2021 16:57

Program h;

var i:integer;

p:real;

begin

i:=0;

while i<=20 do

begin

i:=i+2;

p:=p+1/i;

end;

writeln(p);

end.

0,0(0 оценок)

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

Аккаунт удален

02.05.2020 22:00

Определите функцию Ссылки и списки литературы списка источников, на которые имеются ссылки в документе ....

Соня13377

26.06.2020 19:52

Пример алгоритма: 1) список продуктов 2) кулинарный рецепт 3) записка «Купить продукты» 4) перечень ингредиентов 2. Алгоритм может быть представлен в виде: 1) схемы с дугами...

Dima1911

08.06.2023 01:26

Задания 1. Алтынай решила распечатать свой проект на принтере, но появилось сообщение. Сообщение 1) Объясните причину появления сообщения при отправке на печать документа. (Одно...

gta1234657

16.03.2023 02:26

Закодировать текст с кодировочной таблицы ASCII ДЕНЬ ПОБЕДЫ!...

GeorgeFedorenko

08.04.2020 23:46

2.Что нужно сделать для признавания и осуществления авторских прав на компьютерную игру? 3.почему возможно своевременно заявить о своих авторских правах? ...

godday

19.03.2023 20:56

Рассчитайте значение логического выражения: not(0011 and 1111) xor (not 0101)....

Tolya567

07.06.2022 02:50

Сообщение, записанное буквами из 64 символьного алфавита, содержит 100 символов. какой объем информации в битах оно несет?...

SuperMax2003rus

12.03.2020 08:23

Алгебра 9 клас Контрольна робота 1-5 Тестове задання. 6-9 Розв язати....

смурфик15

12.03.2020 08:23

БЕЗ ОБМАНА ЗА ОБМАН ЖАЛОБА...

Serator2006

19.05.2023 02:18

2. a) David and Aigul discuss Mr. Healthy s habits. Listen or read. Do you agree with them?ManDavid = D; Aigul = AHealthy does all the things from the...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку