Ответы на вопрос:
k: =1;
n: =0
for k to 100 do
begin
n: =n+1;
a: =1/n;
sum: =sum+a;
end;
примерно так (pascal долго качается так что я пока не проверял + если это из там есть ответы с пояснением, удачи)
vara,b: integer; c: real; beginwriteln ('1'); read (a); writeln ('2'); read (b); c: =(a/1)/(1/b); writeln (c); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Tiger33320.08.2021 09:20
-
sasha23020048705.04.2020 19:11
-
камилла32619.02.2023 07:32
-
ученик142524.04.2020 14:10
-
алёчек06.02.2021 17:02
-
05gazieva0505.05.2023 18:19
-
Politik200029.03.2022 22:38
-
GoldTask01.11.2021 19:12
-
BlackStyle6925.12.2021 06:00
-
RAYDEN0216.04.2021 16:32
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.