Дано действительное число a. требуется найти первое значение числа n, при котором сумма s=1+1/2+1/3+…+1/n превышает a. программу составьте двумя способами: используя цикл с предусловием и цикл с постусловием. в abc pascal

Var a, s: real; i: longint; begin       readln(a);       {с предусловием}       i : = 2;       s : = 1;       while(s < = a) do       begin           s : = s + 1 / i;           i : = i + 1;       end;       writeln(i - 1);       {с постусловием}       i : = 1;       s : = 0;       repeat             s : = s + 1 / i;             i : = i + 1;       until(s > a);       writeln(i - 1); end.

Объяснение:

Для создания диаграммы в таблице Excel выполним следующие действия: Выделяем диапазон – это таблица на основе данных, которой будем строить диаграмму.

Дальше на вкладке Вставка в разделе Диаграммы выбираем тип графика. Например, график с маркерами.

В результате получаем.

ДЛЯ ТОГО, ЧТОБЫ ИЗМЕНИТЬ ТИП ДИАГРАММЫ ВЫДЕЛЯЕМ ДИАГРАММУ.

На вкладке Вставка в разделе Диаграммы выбираем нужный нам тип диаграммы. Например, гистограмма.

ЧТОБЫ ПОМЕНЯТЬ МЕСТАМИ СТРОКИ И СТОЛБЦЫ, выполним следующие действия: выделим диаграмму, в меню откроется вкладка Работа с диаграммами.

В разделе Конструктор нажимаем Строка/Столбец.

Т.е. названия месяцев у нас были первоначально по горизонтали, теперь стали по вертикали.

ДЛЯ ТОГО, ЧТОБЫ ДОБАВИТЬ НАЗВАНИЕ ДИАГРАММЫ, выполним следующее: выделяем диаграмму. И в группе вкладок Работа с диаграммами на вкладке Макет нажимаем Название диаграммы и в меню выбираем Над диаграммой.

Далее вводим название нашей диаграммы.