Новые вопросы

Информатика Архивный вопрос

Паскаль.Помогите исправить программу под эту формулу:1+(1/(1+2))+(1/(1+2+3))+(1/(1+2+3+4))+(1/(1+2+...+n))
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.

Нет комментариев

Ответы

Похожие вопросы

Информатика

Есть 6 сетевых каналов, для связи с одним сервером, способные передавать 512, 128, 16, 1024, 256 и 2048 килобайт в секунду, соответственно. По каждому каналу может быть передано не более одного файла. По нескольким каналам могут одновременно передаваться файлы. Требуется передать на этот сервер файлы с объемами 54 мегабайт, 14 мегабайт и 26 мегабай...

Ответить

Информатика

Составьте блок- схему и программу для определения, что больше-( а-3) или( 2а-10),- и в зависимости от введеного с клавиатуры значения а...

Ответить

Информатика

1, Кто такой Норберт Виннер и какова его роль в исследовании информационных процессов?
2, Кто такой Клод Шеннон и чем он знаменит ?
3, Кем и когда был введён термин "гипертекст" ?
4, Кого считают изобретателем WWW и когда это произошло?
5, Кто такой Эйлер, в честь которого названа графическая схема, обозначающая отношения между множеств...

Ответить

Информатика

Помогите, пожалуйста!...

Ответить

Информатика

Сделайте таблицу умнажений в Free Pascal
...

Ответить

Информатика

Понятие и обьекты windows...

Ответить

Список предметов

Математика

Литература

Русский язык

Геометрия

Английский язык

Биология

Другие предметы

Обществознание

Окружающий мир

География

Українська мова

Українська література

Қазақ тiлi

Беларуская мова

Информатика

Экономика

Французский язык

Немецкий язык

Психология