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.
begin
readln(n);
s:=0;
for i:=1 to n do
begina:=sqr(i);
s:=s+a;
end;
writeln(s);
end.