Есть ответ 👍

НАПИСАТЬ КОД ДЛЯ PASCAL ! [за спам бан] Требуется написать код для :
найти сумму рядом S=1 + \frac{1}{2} + \frac{1}{3} + \frac{1}{4} + \frac{1}{5}... \frac{1}{50}

ОБЯЗАТЕЛЬНО ИСПОЛЬЗОВАТЬ ЦИКЛ С ПАРАМЕТРАМИ For to Do

277
420
Посмотреть ответы 2

Ответы на вопрос:


Объяснение:

1)

var i:integer; s:real;

begin

s:=0;

for i:=1 to round((30-1)/0.5)+1 do

s:=s+i*0.5+0.5;

writeln('s = ',s:6:1);

end.

Результат:

s = 914.5

2)

const e=0.1;

var i:integer; s:real;

begin

i:=1;

s:=2;

while 2/i>e do

begin

s:=s+2/i;

i:=i+1;

end;

writeln('s = ',s:5:2);

end.

Результат:

s = 9.20

starikoe
4,6(44 оценок)

Оглавление представляет собой последовательный перечень рубрик отдельно изданного произведения. Содержание раскрывает состав издания

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS