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

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

Ответ:

Zaminaej

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

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

BloodyMary001

08.09.2020 08:15

Вывести на экран все двузначные числа,которые кратны 15...

sananana1

01.04.2023 07:59

Вывести на экран все двузначные числа,которые кратны 15...

Qwertyuio111

12.03.2022 15:06

Какие устройства можно подключить к компьютеру. штучек 12....

10089675834075

12.03.2022 15:06

Спортсмен пробежал 10 км в первый день каждый следующий день он увеличивал на 10% найти общее количество км пройденных за 7 дней. не по паскалю,практическая работа,в...

dniil2003

09.05.2023 22:25

Какое из устройств компьютера является «мозгом» компьютера? a) Память c) Монитор b) Процессор d) Мышь...

gasisivlasova

10.08.2020 09:56

Матрицу c(9,7) заполнить целыми случайными числами в диапазоне от -112 до 112. подсчитать количество строк , в которых число отртцательных элементов больше трёх. вывести...

rsharapov

02.10.2022 07:08

Для данного числа n 100 закончите фразу “на лугу ” одним из возможных продолжений: “n коров”, “n корова”, “n коровы”, правильно склоняя слово “корова”. программа должна...

Annetaolk963

23.09.2022 01:00

Цветное с палитрой из 256 цветов растровое графическое изображение имеет размер 5 на 7 точек.какой информационный объём имеет изображение?...

oliand

23.09.2022 01:00

8- цветный рисунок содержит 27 байт информации.из скольких точек он состоит? ответьте кто сможет ! : )...

Dirol1337

13.01.2022 12:58

А. С. Грибоедов Горе от ума . Напишите цитаты об уме и глупости из 1-2 действия....

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

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