Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
6 декабря 2022 17:08
373
Дано натуральное число N. Вычислить: s=1/1+1/2+1/3+⋯+1/N
составить программу в Паскале
1
ответ
Var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:4:2);
end.
0
·
Хороший ответ
8 декабря 2022 17:08
Остались вопросы?
Еще вопросы по категории Информатика
Среди множеств: книга, бензин, врач, молоко, строитель, учебник, жидкость, справочник, человек, найдите шесть пар, между которыми существует отношение...
12) Каково назначение процессора? a. обрабатывать одну программу в данный момент времени b. управлять ходом вычислительного процесса и выполнять ари...
несжатое растровое изображение размером 256*128 пикселей занимает 16 Кб памяти.Каково максимальное возможное число цветов в палитре изображений?...
Световое табло состоит из лампочек, каждая из которых может находиться в двух состояниях («включено» или «выключено»). Какое наименьшее количество лам...
Продумайте, какими графическими образами можно проиллюстрировать: 1) виды информации по способу её восприятия человеком 2) свойства информации Найд...
Все предметы