1)
var n,i:integer;
p:real;
begin
write('n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*2*i;
writeln('p=',p);
end.
2) var i,s,n:integer;
begin
write('Введите n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Сумма s=',s);
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:BigInteger;
if not BigInteger.TryParse(ReadlnString('n='),n) then
Writeln('Введенное не является целым числом')
else
Writeln(n.IsPowerOfTwo?'YES':'NO')
end.
<u>Пример</u>
n= 2037035976334486086268445688409378161051468393665936250636140449354381299763336706183397376
YES
program cnden;
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if a>b then writeln(a) else writeln(b);
readln;
end.
Блок-схему сама, мне лень рисовать