дано естественное число N. найти сумму S=1+1/2+1/3+...+1/N. цикл которым надобно сделать
Дано натуральное число N. отыскать сумму S=1+1/2+1/3+...+1/N. цикл которым надобно сделать while ...do
Задать свой вопрос1 ответ
Анастасия
// PascalABC.NET 3.2, сборка 1447 от 22.05.2017
// Внимание! Если программка не работает, обновите версию!
1. Современная запись
begin
var n:=ReadInteger('n=');
(var s,var i):=(0.0,1);
while ilt;=n do (i,s):=(i+1,s+1/i);
Writeln('S=',s)
end.
Пример
n= 5
S=2.28333333333333
2. Школьная запись
var
i,n:integer;
s:real;
begin
Write('n='); Read(n);
i:=1;
s:=0;
while ilt;=n do begin
s:=s+1/i;
i:=i+1
end;
Writeln('S=',s)
end.
// Внимание! Если программка не работает, обновите версию!
1. Современная запись
begin
var n:=ReadInteger('n=');
(var s,var i):=(0.0,1);
while ilt;=n do (i,s):=(i+1,s+1/i);
Writeln('S=',s)
end.
Пример
n= 5
S=2.28333333333333
2. Школьная запись
var
i,n:integer;
s:real;
begin
Write('n='); Read(n);
i:=1;
s:=0;
while ilt;=n do begin
s:=s+1/i;
i:=i+1
end;
Writeln('S=',s)
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов