1. Информатика
  2. Для данного натурального

Для данного натурального числа n требуется вычислить сумму : 1 + 1/2 + + 1/3 + + 1/n. постройте алгоритм и напишите 2 варианта программы на паскале с циклом -до и с циклом-пока

12345678298 12345678298    2   19.05.2019 03:10    2

Ответы
Кариночка78 Кариночка78  12.06.2020 08:26

1)

var
n,z:integer;
i,sum:real;
begin
readln (N);
while (z<>n) do
begin
z:=z+1;
i:=1/z;
sum:=sum+i;
writeln (sum);
end;
end.

 

2)

var
n,z:integer;
i,sum:real;
begin
readln (N);
repeat
z:=z+1;
i:=1/z;
sum:=sum+i;
writeln (sum);
until (z=n);
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
KATE4213 KATE4213  06.12.2019 05:42
С# 50 . элементом списка является пара строк. отображение элемента осуществляется в формате «[] {}». требуется найти сумму длин первых строк элементов, для которых соответствующая...
maratsultanbekкатя maratsultanbekкатя  06.12.2019 05:37
С#. 50 дана строка, состоящая из символов цифр. сформировать новую строку, в которую входят только символы из указанных диапазонов: ‘0’/‘3’, ‘4’/‘6’, ‘7’/‘9’ в любой комбинации....
ХранительТьмы228 ХранительТьмы228  06.12.2019 05:34
Int main() { setlocale(lc_all, russian ); const int n = 5; //определяем константу float c = 1, f = 0; int p[n]; cout введи любые пять цифр через пробел: , \n ; for (int a = 0; a...
unitolog unitolog  06.12.2019 07:16
Стаблицамипостройте таблицы истинности для следующих логических выражений....
max690 max690  10.06.2019 08:50
Передача файла через некоторое соединение осуществлялась со скоростью 2048 бит/с и заняла 1 минуту 4 секунды.определите размер файла (в байтах),который можно передать за то время...
778392 778392  27.03.2021 20:12
Найдите , количество информации : а) в фотографии размером 10 на 15 см и с разрешением 640 на 483 точки в см. б) в тексте, который написан на 15 строчках по 64 символа в строке...
Эхэхэхэхэхэх Эхэхэхэхэхэх  27.03.2021 20:20
На вход программе подается положительное целое число n, состоящее только из цифр 6 и 9. Напишите программу, которая возвращает максимальное число, которое вы можете получить, изменив...
angelina453 angelina453  27.03.2021 20:21
язык программирования питон (Python)...
ame5 ame5  24.05.2020 16:45
Отметьте исполнителей алгоритмов:1) Человек;2) Станок;3) Компьютер;4) Веник;5) Пылесос.​...
yuliyamusatova1 yuliyamusatova1  17.03.2019 22:40
Какие высказывания являются верными: а) -35,5 не принадлежит z. б) не принадлежит n. в) 0 принадлежит n. г) 11 принадлежит q....

Популярные вопросы