1)Вычислить P=N!,где N вводится с клавиатуры с помощью трех видов цикла(1)repeat 2)while 3)For 2)модифицировать эти программы введя проверку N,если
10-11 класс
|
N>7,то вывести фразу"превышение допустимых значений" В другом случае подсчитать N!
1)
program factorial;
var
a,n,i:integer;
begin
writeln('Вычисление факториала P=N!');
write('Введите значиние N: '); readln(n);
a:=0;
for i:=1 to n do a:=a+i;
writeln('P=', a);
end.
2)
program factorial;
var
a,n,i:integer;
begin
writeln('Вычисление факториала P=N!');
write('Введите значиние N: '); readln(n);
if n>7 then writeln('Превышение допустимых значений')
else
begin
a:=0;
for i:=1 to n do a:=a+i;
writeln('P=', a);
end;
end.
Другие вопросы из категории
числа. паскаль
написать программу на компьютере и проверить правильность
работы Вашей процедуры/функции, в этом случае в основной программе
должны быть реализованы ввод исходных данных и вызов
процедуры/функции.
ввести натуральное число и определить, верно ли, что сумма цифр равна 10
Читайте также
Составьте программу, в которой функция выведет на экран однозначные числа, удовлетворяющие следующему условию: х*х*х-х*х=n , где n вводится с клавиатуры.
нахождения S прямоугольного треугольника. ЗНАЧЕНИЯ КАТЕТОВ ВВОДЯТСЯ С КЛАВИАТУРЫ!
ПОМОГИТЕ ЗАЙКИ,,,,,
NxN. Программа должна осуществлять ввод и печать исходной матрицы и возможно, дополнительных данных, произвести необходимые действия и напечатать результаты.
Найти в каждом четном по номеру столбце матрицы максимальный элемент и вычислить произведение этих элементов.
2) Перечислить характеристики массива
Помогите,пожалуйста!