var
n : integer;
S : decimal;
function fac(n : integer) : decimal;
begin
result := 1;
for var i := 1 to n do result := result * i;
end;
begin
write('введите n = ');
readln(n);
for var i := 1 to n do S := S+fac(i);
writeln('S=', S);
end.
Ответить не могу а подсказать удовольствием
гипертекст — текст, сформированный с помощью языка разметки, потенциально содержащий в себе <u>гиперсылки</u>
1)program qq;
const N=(количество чисел в массиве);
var A:array[1..N] of integer;
i, S:integer;
begin
for i:=1 to N do readln(A[i]);
S=0;
for i:=0 to N do
if (A[i]>9) and (A[i]<100) and (A[i]mod2=0) then S:=S+A[i];
writeln(s);
<span>end.
2) </span>program qq1;
const N=(количество чисел в массиве);
var A:array[1..N] of integer;
i, k:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0;
for i:=0 to N do
if (A[i]mod10=3) and (A[i]<100) and (A[i]>9) then k:=k+1;
writeln(k);
<span>end.</span>
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно