begin Write('n= '); Read(n); if n>20 then Writeln('Слишком большое n, допустимо 1,2, ... 20') else begin P:=1; for i:=2 to n do P:=P*i; Writeln(n,'! = ',P); end end.
Примеры n= 20 20! = 2432902008176640000
n= 43 Слишком большое n, допустимо 1,2, ... 20
Если не делать проверки n, было бы n= 43 43! = -7904866829883932672
1. var x:integer; begin readln(x); if x>0 then writeln(x,' - положительное') else if x<0 then writeln(x,' - отрицательное') else writeln(x,' = 0'); end.
Пример: -125 -125 - отрицательное
2. var x,y,z,k:integer; begin readln(x,y,z); if x>0 then k:=k+1; if y>0 then k:=k+1; if z>0 then k:=k+1; writeln('количество положительных чисел = ',k); end.
Пример: -125 84 67 количество положительных чисел = 2
3. var x:integer; begin readln(x); if x mod 2=0 then writeln(x,' - чётное') else writeln(x,' - нечётное'); end.
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.
Примеры
n= 20
20! = 2432902008176640000
n= 43
43! = 60415263063373835637355132068513997507264512000000000
2. "Школьный древний вариант"
// Free Pascal 3.0.0
var
i,n:longint;
P:int64;
begin
Write('n= '); Read(n);
if n>20 then
Writeln('Слишком большое n, допустимо 1,2, ... 20')
else begin
P:=1;
for i:=2 to n do P:=P*i;
Writeln(n,'! = ',P);
end
end.
Примеры
n= 20
20! = 2432902008176640000
n= 43
Слишком большое n, допустимо 1,2, ... 20
Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672