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

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

Ответ:

sharperdimas

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

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

Irina1357

09.01.2020 13:08

Что из перечисленного можно делать в word? a) большими информационными массивами; b) автоматически нумеровать страницы; c) использовать абсолютные ссылки; d) строить графики...

dasha2oo2

11.11.2022 23:41

Перевести сумму, заданную в копейках(k), в рубли (r)...

lybabibrka

11.11.2022 23:41

По известной температуре (t) воды определить ее состояние : лед, жидкость, пар...

timamarsh666

04.03.2020 11:33

Составить программу - калькулятор, которая запрашивает тип функции: 1-квадрат, 2-куб, 3 - корень квадратный, 4 - обратная функция, а также аргумент функции x и вычисляет для...

Mashannjjj

23.03.2020 09:06

Выберите из предложенных вариантов основные записи алгоритмов *Словесное описаниеСхемаПострочная записьЧертежПоследовательность рисунковДиаграммаЗапись на алгоритмическом...

polinakovaleva7

17.02.2020 17:20

На языке программирования Python напишите программу,решающую следующую задачу:напишите функцию calc,которая принимает 3 аргумента: первые два- это числа а третий операция...

Tanya21105

10.12.2020 01:20

Вычислите,сколько байтов занимает на СD одна минута звукозаписи(частота дискретизации 44000,разрядность 16 бит)какова максимальная продолжительность звукозаписи на диске ёмкостью...

Alin4ikVP

26.01.2023 14:43

1) Что является основным недостатком топологии «шина»? а) высокая стоимость сети; б) низкая надежность сети; в) большой расход кабеля; г) низкая помехозащищенность сети. 2)...

WseNikiZanyati

10.06.2020 18:05

Уровень В4. Школьник в текстовом редакторе напечатал слово «теленграмма». Курсор находится после третьей буквы того слова.Какое слово будет напечатано после выполнения следующегоалгоритма:Нажать...

ivanovanaira

13.08.2021 23:35

Определите значение переменной s после выполнения фрагмента программы: s:=0; for k:=1 to 5 do for j:=1 to k do s:=s+k;...

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

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