tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу следующую
Составьте программу следующую сумму: s=1+(1/2)+(1/3)++(1/50)
Карик007
1 21.08.2019 06:20
0
Ответы
alexvelova
05.10.2020 08:47
Var s,i: real;
begin
readln(a);
s:=0;
for i:=1 to 50 do begin
s:=s+(1/i);
end;
write(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
irina162002
28.03.2019 21:50
Можно ли поменять чип или что частоту дело в том что у меня на компьюторе тактовая частота 1,7 ггц а я хочу заменить её на 2 ггц , так вот можно ли это...
alenadevyataya
10.05.2021 19:17
РЕШИТЕ С ОБЪЯСНЕНИЕМ. Звукозапись длительностью 90 сек. сохранили в формате моно (1 канал), с частотой дискретизации 16 кГц. Размер файла оказался равным 4000 Кбайт. Сжатие...
danilkalmykov1
08.12.2020 03:59
Напишите программу, которая считает количество чётных цифр введённого числа. ---Входные данные--- Входная строка содержит одно натуральной число N . ---Выходные данные--- Программа...
fgarhadg
08.12.2020 03:59
Запишите команду генерации случайного числа от (-10;25)...
beka98888
18.01.2021 08:43
Сравни звуковые эффекты и видеоэффекты.ЗвуковыеэффектыВидео-эффекты...
SVETLANA098374
18.01.2021 08:40
Ақпараттық технологияларды қолдану туралы баяндама...
zarina183
04.05.2020 15:47
В ЧЕМ РАЗЛИЧЬЕ ЦИКЛОВ ПРЕДСТАВЛЕНЫХ В ВИДИО...
хани2005
04.05.2020 15:47
Кокая игра the best за 20гб...
АннаФайна
04.05.2020 15:48
3 тапсрмага комектесиниздершиастнда суретте...
Egoor123999
20.07.2019 08:50
Площадь трапеции на языке abc pascal...
Популярные вопросы
2) Порівняйте показники густоти населення світу і України тими, що наведені...
1
Запишите три различных решения уравнения 5x+3y=30...
2
1.Які почуття визивє трагедія Шекспіра? 2.Які основні теми розкриті в увертюрі?...
2
зайк,мне очень нужна ваша :((( от...
3
Запишите слова, сняв риска. Иди / ж / так, только / но, как / вот, этакий...
3
, Даны три точки A(2;1;3), B(3;2;-1), C(-1;2;1). Найдите косинус угла B...
2
Два велосипедиста выехали одновременно из поселка в спартивный лагерь. Один...
2
Твір-опис місцевості на основі власних Вулиця мого дитинства (писати грамотно...
3
Що буде, якщо буди не буде? КТО ОТВЕТИТ НЕПРАВИЛЬНО ЗАБАНЮ И КСТАТИ ЭТО...
2
Із ракети масою 5 тонн щосекунди вириваються розжарені гази масою 100 кг...
2
begin
readln(a);
s:=0;
for i:=1 to 50 do begin
s:=s+(1/i);
end;
write(s);
end.