Используя цикл с постусловием, составить алгоритм вычисления произведения
5-9 класс
|
F=2*4*6*8*.....*2N, где N вводится
Программа на Паскале:
Program BiFi;
Const S=1000;
Var a:array[1..S] of integer;
i,N: integer;
k:LONGINT;
Begin
k:=1
readln(N);
for i:=1 to N do a[i]:= 2*i;
for i:=1 to N do k:=k*a[i];
writeln(k);
readln;
end.
Другие вопросы из категории
1)Дана непустая последовательность целых чисел, оканчивающаяся нулем.
Найти:
а) сумму всех чисел последовательности, больших числа x;
б) количество всех четных чисел последовательности.
2)Дана последовательность ненулевых целых чисел, оканчивающая нулем. Оп-
ределить, сколько раз в этой последовательности меняется знак. (Например,
в последовательности 10, –4, 12, 56, –4 знак меняется 3 раза.)
Читайте также
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
натуральных чисел, не превышающих заданного натурального числа N.
Проверьте алгоритм трассировкой. Напишите программу на Паскале.
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!