tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу в паскале
Составьте программу в паскале авс 1/1 + 1/2 + 1/3 + 1/4 + + 1/37
Lizulinka
1 12.09.2019 18:20
2
Ответы
Behruz2008
07.10.2020 10:11
Program summa;
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.
ПОКАЗАТЬ ОТВЕТЫ
EldarHolter
07.10.2020 10:11
Var i: byte; sum: real;
begin
for i := 1 to 37 do
sum := sum + 1/i;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
BugaevaAina
11.08.2019 10:40
Нужно написать характеристику вашего пк заранее огромное...
pruzhinskiy01
31.05.2020 11:59
Здравствуйте с решениемВариант 17№ Операция Задание1 Преобразуйте числа (656)10=()2 , (D45)16=()10 , (1101110,0111)2=()10 , (467)8=()10 , (4587)10=()8 , (9637)10=()162 Найдите...
Сергій2006SSS
31.05.2020 11:49
Библиотечный метод Продемонстрируйте работу метода сортировки вставками по возрастанию. Для этого выведите состояние данного массива после каждой вставки на отдельных строках....
Дуся003
01.07.2019 02:00
Напишите программный код в с++ ! : если число 777 умножить на 143, получится 111111. найти числа, при умножении на которые числа 777, получаются числа, состоящие из шести двоек,...
ievlevaaleksanra
15.04.2020 20:25
Напечатать в виде таблицы значения функции y=4x² - 2x + 3, для значений x, изменяющегося от -8 до 2 с шагом 1. Решить задачу, используя: а) цикл с предусловием, б) цикл с постусловием....
prospekt888
15.04.2020 20:25
Живущие по соседству Вася и Света проложили между своими домами кабель, объединив свои компьютеры в сеть. Что получилось в результате? Локальная сеть Городская (территориальная)...
MineLoL1
15.04.2020 20:26
Дано целое число. Если оно является положительным, то прибавить к нему 27; противном случае не изменять его. Вывести полученное число. Очень нужно это задание, буду благодарна!!...
avfvffg
15.04.2020 20:22
В каком отношении ЭОР относится к ЦОР?...
Liner158
15.04.2020 20:26
«C»: Ввести с клавиатуры два натуральных числа и сравнить количество шагов цикла для вычисления их НОД с обычного и модифицированного алгоритмов Евклида.Пример:Введите два числа:1998...
nazira15
22.06.2019 06:40
Аул расположен между станцией и дачным поселком на расстоянии 4 км от станции.из аула в сторону дачного поселка вышел пешеход со скоростью 75 м/мин.через 0.5 ч со станции в том...
Популярные вопросы
Millаrd аn Ill Complete the sentences with the Present Perfect Tense form of...
2
Применяя правила о провописании ь в числительных запешите цифры словами 777...
3
Историческая справка на произведение Токката и Фуга ре минор И. С Баха 1. Годы...
1
Машина проехала 70 км. Этот путь составил 2\5 части всего пути. Определите...
3
Алақай, біздің аққала! Көзін кіштентай қара көмірден, мұрнын сәбізден жасайды....
3
1.Запишите тему текста 2.Определите основную мысль текста.3.Запишите антонимы...
3
В месяце цена товара составляла 90р теперь она понизилась на 3/10 этой суммы...
3
Заполните таблицу. Определите элемент и его напишите количество электронов...
2
Обчисліть площу круга, радіус якого дорівнює 10см * a)31,4 кв.см b)314 кв.см...
2
X+X-30° =180° жауабын кым былед...
2
var i:integer: s: real;
begin
s:=0;
for i:=1 to 37 do s:=s+1/i;
writeln('s=',s:5:2)
end.
begin
for i := 1 to 37 do
sum := sum + 1/i;
writeln(sum);
end.