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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

maria610

31.03.2021 01:24

1)запишите два известных вам факта, относящихся к свойствам объектов. 2) запишите два известных вам факта, относящихся к зависимостям между объектами. )...

Asoooollll

31.03.2021 01:24

Здесь зашифрована пословица. а сколько в ней слов, включая предлоги? ↓ человек и возвышенность ↓ iq 10 ↓да ↓нет обойти а)6 б)7 в)8 г)9...

nat17akan

31.03.2021 01:24

881+451 777+345 715-401 804-255 перевести в двоичную систему счисления .а после сложить или вычисть !...

moranikatya

14.07.2022 21:13

Мама отправила дочь в магазин за хлебом какую информацию мама не обязательно сообщать дочери а сорт хлеб б количество блок хлеба примерно стоимость одной булки гместо расположения...

ayubabdulmanapov

02.05.2021 02:00

Вдвумерном массиве а(3; 4) найти значение и индекс наименьшего из элементов с четными номерами...

VeRa2KoToVa1

01.07.2022 17:50

Составить алгоритм по информатике с условием: есть датчик температуры и влажности. если температура больше 30°, то включить кондиционер, если меньше 30°, то выключить. если...

ЖенушкаV

30.01.2021 10:08

Cоставить процедуру ввода элементов одномерного массива и вычисления количества элементов, равных к. (не обязательно) разработать программу где осуществляется вызов данной...

petrovakat2003

30.01.2021 10:08

Массив a[1..15] заполняет случайными четными числами в диапазоне от -10 до 10 за тем переобразовывать массив заменяя каждый отрицательный массив на 0 . и подсчитать все эти...

MasterDrenZik

30.01.2021 10:08

Нужна по програмированнию на без if. имя входного файла стандартный ввод имя выходного файла стандартный вывод ограничение по времени 2 секунды ограничение по памяти 64 мегабайта...

Настя12611

21.07.2021 10:07

Напишите программу,которая считает сумму цифр введенного числа (паскаль) programи fr; var a, sum: integer; begin writeln ( введите число ); readln (a); while a 0 do begin...

Ответ:

dalepidorasp0833z

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 оценок)

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

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