Z(n+2)! Задали вот такое уравнение по информатике,если не ошибаюсь через паскаль нужно его решить,помогите пожалуйста
10-11 класс
|
var
z,n,i:integer;
f:real;
begin
write ('Z = ');readln(z);
write ('N = ');readln(n);
f:=1;
for i:=1 to z*(n+2) do f:=f*i;
writeln (f:0:0);
readln;
end.
var
z, x, i: longint;
f: int64;
begin
write('Z = ');
readln(z);
write('n = ');
readln(n);
f := 1;
for i := 2 to 2 + n do
f := f * i;
writeln('Z * (n + 2) = ', z * f);
end.
Другие вопросы из категории
программе описан одномерный целочисленный массив с индексами от 0 до 10. В
приведенном ниже фрагменте программы массив сначала заполняется, а потом
изменяется:
Она в 101 класс ходила,
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
Читайте также
ИРА , БОРЯ И АЛЁША ЗАКОДИРОВАЛИ ПО
ОДНОМУ СЛОВУ .ВОТ ИХ КОДЫ: ПЕРВОЕ СЛОВО 10111111 10111110 10111011
10110101, ВТОРОЕ СЛОВО 10111110 10110111 10110101 11000000
10111110,третье слово10111011 10110101 11000001.
ПОМОГИТЕ ПОЖАЛУЙСТА.
е учебника по русскому языку.Найти и вывести на экран сумму денег Помогите пожалуйста
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
Опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0<a,b<10.