logo
Войти Регистрация Спроси ai-bota


nn814921
29.09.2022 11:31

Составьте программу на языке паскаль которая высчитывает сумму цифр 1/2+1/3+1/4+/n

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Катя20030000
Катя20030000
23.05.2023 07:07
Генератор случайных чисел создает пятиразрядные шестнадцатеричные числа так, что каждая цифра с равной вероятностью является одной из шестнадцатеричных цифр от 0 до f включительно....
lizachumakova2
lizachumakova2
29.05.2022 19:22
Какое значение будет иметь переменная а после выполнения следующих операторов присваивания: а: =5; b: =а+4; а: =а+b; а: =а+b=а*b....
ната34567890
ната34567890
28.08.2021 02:27
Что выведет на экран следующая программа? begin write( я учусь в ); write(2*3+5); writeln( классе. ); write( мне , 16 , лет. ); writeln; writeln( я знаю,что , 2*2= ); write((6*6-12)/6);...
Anna69666
Anna69666
13.07.2022 15:08
Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer; Begin s := 0; for k := 14 to 18 do s := s+7; writeln(s); End. РЕШЕНИЕ ПОЛНОСТЬЮ...
Фиалка2332
Фиалка2332
01.06.2023 12:01
Саяжай модельінің екі көрсетілімін салыстырыныз Модельдердің бір-біріне ерекшелігін анықтаңыз...
Nactyska5004763256
Nactyska5004763256
10.03.2022 11:21
Берыген есептын шыгару жолын реттелген тызбектер турынде жазу калай аталады ​...
Тарана11лет9456
Тарана11лет9456
12.09.2021 12:34
Написать програму на паскале: Даны два целых числа. Если их значения равны, то присвоить каждому произведение этих чисел, иначе присвоить числам значение 5.​...
elaushkop0busc
elaushkop0busc
14.08.2020 03:06
Вчем состоит различие между лицензионными условно бесплатными и бесплатными программами? какие типы программ обычно распространяются бесплатно? какие идентификации личности используются...
viktoriafedorip0a2an
viktoriafedorip0a2an
14.12.2020 12:03
Продолжи последовательность чисел: 2; 4; 7; 9;...
panteleevdanil
panteleevdanil
19.02.2022 18:47
Иточно сколько бит информации содержится в смс объёмом половина...
Ответ:
alisa2847274
16.09.2020 08:51
Var i,n:integer;
c:real;
begin;
readln(n);
for i:=2 to n do
c+=1/i;
writeln(c);
end. 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота