tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать в паскале: for s=1+1/2+1/3+1/4+1/5
Написать в паскале: for s=1+1/2+1/3+1/4+1/5
mileshka890
2 02.09.2019 18:20
0
Ответы
Tania22012003
01.09.2020 06:51
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+1/n;
WriteLn('S = ',S);
End.
n = 5
S = 2.28333333333333
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
malygin73rus
03.06.2019 08:50
Придумай команды которые может исполнить компьютер?...
Boodmi
03.06.2019 08:50
Найти сумму положительных и отрицательных элементов массива...
george39
30.11.2019 17:14
Хотите подзаработать сюда составить все (32) 5 разрядные двоичные коды...
nkartalev
30.11.2019 17:21
C++ составьте программу перевода старинных мер длины, торгового и аптекарского веса(счетчик цикла от 1 до 10) * саженей в метры(1 сажень равна 2,1366 м) * из дюймов...
melisonpolina
30.11.2019 15:33
1. как представлены в одном байте памяти компьютера, в числовой системе со знаком, следующие десятичные числа: а) - 85 2. запишите в виде целого десятичного числа...
banana1106
08.12.2021 13:07
1. не более заданного числа n 2, 4, 6,... вычисляет среднее арифметическое число членов последовательности 2. не более 1, 2, 3 заданного числа n ... вычисляет среднее...
SmatBok
08.12.2021 13:07
В соответствии с кодовой таблицей ASCII символы английского алфавита кодируются двузначными числами, причём сочетание I l o v e будет закодировано как 73 76 79...
damirnikiforov
21.05.2019 10:00
Шахматная доска состоит из 8 столбцов и 8 строк какое минимальное количество бит потребуется для кодирования координат шахматного поля?...
lera5053
21.05.2019 08:29
Cоздать тестирующую программу которая будет задавать тебе вопросы.минимум 10 вопросов и на каждый их вопроса 3 ответа в паскале...
nastya652
21.05.2019 08:30
Сколько имеет решений? выполнить в excel (j+2)*(k+2)*(m+n)*(l+m)*(m+k)=1...
Популярные вопросы
Ковзаняр рівномірно рухається по колу радіусом 20 м зі швидкістю...
3
What is the main task of the court? ( _ ) ( _ )...
3
Написать эссе на тему незнание закона не освобождает от ответствености...
3
Надо составить три вопроса по тексту....
2
Подскажите ! найдите значение выражения) 35 ...
3
3метил 1.4 гексадиен 2 метил 1.3 бутадиен решать...
2
[tex](x-a)\sqrt[4]{x+1} = 0[/tex] решить параметр, 50...
1
Какие слова зашифрованы в этом квадратике...
3
сколько энергии выделится при охлаждении до 120с 2кг алюминия,...
1
Приемник настроен на прием радиоволн, передаваемых передатчиком....
3
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+1/n;
WriteLn('S = ',S);
End.
n = 5
S = 2.28333333333333