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

Составьте программу следующую сумму: s=1+(1/2)+(1/3)++(1/50)

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

Ответ:

veronikasabrin

05.10.2020 08:47

Var s,i: real;
begin
readln(a);
s:=0;
for i:=1 to 50 do begin
s:=s+(1/i);
end;
write(s);
end.

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

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

СофияСерая

13.05.2020 13:17

Здравствуйте, выполните работу по информатике по абсолютным и относительным ссылкам,...

mira133

12.10.2020 20:20

Что это такое на изображении...

Kakanya

02.06.2021 13:28

Проаналізуй послідовність команд: • прочитати число а1; • прочитати число а2; • поділити число а1 на а2; • записати результат...

MisterStickman1

20.06.2020 16:16

Что это такое на изображении...

ррраша

27.12.2022 13:36

Было о человек и выяснили, что самой большой популярностью пользуются казуальные игры, такие как пасьянсы, сапер, и т.д-74%. играм симуляторам предпочтение 42% пользователей....

young22228

18.10.2020 14:43

ОТВЕТИТЬ НА ВО В чем преимущества статической маршрутизации? 2. Дайте характеристику параметрам статической таблицы маршрутизации? 3. Какие этапы при установке устройства...

Rina666

11.12.2020 16:44

Предлагается некоторая операция над двумя произвольными трехзначными десятичными числами: 1) Записывается результат сложения старших разрядов этих чисел. 2) К нему дописывается...

witruk

22.02.2021 21:24

Процесс выполнения операторов присваивания: a:=1;h:=133;s:=a∗h При выполнении оператора a:=1 в ячейку оперативной памяти компьютера с именем a заносится значение ; при...

Martin45707

02.02.2022 11:16

определить информационный вес символа из алфавита включающего в себя все строчные прописные русские буквы (66) и цифры (10) ...

scvdnl

04.07.2022 03:43

Айнұр ұялы телефонға суретке түскенді ұнатады. Ол сағатына 10 рет суретке түседі. Әр фотосурет орта есеппен 2,5 МБ алады. 200 Мб көлемі бос емес 2Гб (2048 Мб) флеш-тасымалдағышта...

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

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