Вычислить значение переменной y при заданном n: 1/1+1/2+1/3++1/n, используя оператор repeat (паскаль)
вика3877
3
18.05.2019 23:00
0
Другие вопросы по теме Информатика
Anna977497
18.08.2019 15:50
polinkaa777
18.08.2019 15:50
mashanemiro110p08m38
19.05.2021 11:44
Lalana11
19.05.2021 11:44
sbornyakovap08xiv
31.07.2019 17:00
ioOllOoi
31.07.2019 17:00
vcurakina
31.07.2019 16:50
lizalist0506
13.05.2020 15:25
xXDeXTeRXx
13.05.2020 15:25
Популярные вопросы
- Укажи слово с мягким шипящим согласным звуком машинист точка жизнь...
3 - 24 стакана с соком расставили на 8 столов ,поровну на каждый стол...
2 - 3,1(t+2)+4,2t=57,4 уравнение для 5-6 кл...
3 - Водном множестве 94 элементов, а в другом — 32. какое максимальное...
1 - Отрезок af биссектриса треугольника abc,высота fo треугольника...
2 - Ис объяснением.решите уравнение: 2 8/15: 3 4/5=4.5: (у-0.6)...
3 - Напишите краткое содержание про книгу 12 месяцев . нужно...
2 - Який об єм займе газова суміш (н. що складається із 3 моль сульфур...
3 - Расставь знаки арифметических действий 3 3 3 3=8чтобы было верное...
3 - Назовите примеры лежачих побегов (много)...
3
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.