Написать програму для обчислення добутків виду (х-1)(х-2)(х-3)...(х-n) (P.S скласти програму и блок схему)
10-11 класс
|
var
i,n,x:integer;
p:longint;
begin
write ('X = ');readln(x);
repeat
write ('N = ');readln(n);
until (n>0);
p:=1;
for i:=1 to n do p:=p*(x-i);
writeln ('Proizvedenie: ',p);
readln;
end.
Другие вопросы из категории
по k2-ой, где k1 и k2 вводятся с клавиатуры. Сделать проверку корректности их ввода.
3) Найти сумму всех элементов одномерного массива, имеющих четные индексы.
4) Создать одномерный массив случайных целых чисел в диапазоне (-7,2). Переставить в обратном порядке элементы массива.
5) Найти 3 минимальных элемента массива и возвести их в квадрат.
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
отрицательное или равно 0 - закрашенный прямоугольник помогите плиз написать программу для QBASIC
PASCAL:
VAR
A:ARRAY[1...100]OFF
INTEGER;
N,I,J: INTEGER;
S: REAL;
BTGIN
N:=8;
FOR I:=1 TO N DO
BEGIN
S:=0;
FOR J:=1 TO I DO
S:=S+(A[J]);
S:=ABS(S);
WRITELN(`S`=`,S:9:2);
END;
READLN;
END.
QBASIC
DEFINT N,I,J,S,
DIM A(100) AS INTEGER
N:=8
FOR I=1 TO N
S=0
FOR J=1 TO I
S=S+A[J]
NEXT J
S=ABS(S)
PRINT S
NEXT I
ШКОЛЬНЫЙ АЯ
алг слово(рез вещ s)
цел раб А[1:100]
n:=8
нц для I от 1 до n
s=0
нц для j от 1 до I
s=s+a[j]
кц
s=abs(s)
вывод s
кц
кон
Пожааалуйста нужны блок-схемы для трех вариантов получения s
X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2