написать программу на вычисление суммы бесконечного ряда 1 + 1/2 + 1/3+ ........ ЧЕРЕЗ ОПЕРАТОР FOR
5-9 класс
|
var
i,n:integer;
sum:real;
begin
readln(n);
sum:=0;
for i:=1 to n do
begin
sum:=sum+(1/i);
end;
writeln(sum);
end.
Другие вопросы из категории
РЕШИТЬ НУЖНО ВСЕ
Напишите скрипт пожалуйста
даче нельзя использовать инструкцию if.
Пример: Входные данные: 1 10 Выходные данные: 2 4 6 8 10
Var s,k: integer;
begin
s:= 100
k:=7
repeat
s:= s-k
k:=k+1
Until k>10
writeln( s+k)
end.
Пожалуйста объясните как вывести отсюда результат
Дано:числа А и Б
Найти: С-большее из А и Б
Читайте также
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
Перевод дюймов в сантиметры (1дюйм=2,54см). Нужно, чтобы при запуске программы на экране выходило в два столбика дюймы и сколько это будет сантиметров. До 20 чисел. Через оператор While.
и написать программу на вычисление площади или периметра прямоугольника
, при условии, если а < b ,
тогда вычисляем периметр , иначе площадь . Каждую строку программы прокомментировать .
Входные данные а=10 , b=8
помогите решить 9 класс
(ниже представлен рекомендуемый вид экрана во время работы программы)
Вычисление частичной суммы рада 1,3,5,7.
Введите количество суммируемых членов ряда: 15
Сумма первых 15 членов ряда равна 330.