Составить программу вычисления значения выражения y=1+1/2+1/3+...1/20!!!!
5-9 класс
|
var
k:real;
i,:integer;
begin
k:=0;
for i:=1 to 20 do
k:=k+1/i;
write(k);
end.
Другие вопросы из категории
нарисовать на экране 10 прям-ов в горизонтальную линию с увеличение.
11,13,22,39,60,99,200,438,649,999,1207,2945,3555,3678,3900,3999
окно, Т2 минут спал, Т3 часа разговаривал с соседом. (Ответ дать в часах и минутах)
среди них есть хоть один элемент больше единицы, и произведение - в противном случае.
Читайте также
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!