задания по программированию на паскале

Ответ от Jurii[гуру]
1. Факториал для N < 20 (больший не влезет в Longint):
function F(N : Longint) : Longint;
begin
if N = 0 then F := 1
else F := F(N - 1) * N;
end;
var
N : Byte;
begin
Write('Введите N = '); ReadLn(N);
WriteLn(N, '! = ', F(N));
end.
4. Можно через строку, но без проверки правильности ввода числа:
var
N : String;
P : Byte;
K : Word;
C : Char;
begin
Write('Введите N = '); ReadLn(N);
WriteLn('В числе цифр : ', Length(N));
K := 0; for P := 1 to Length(N) do K := K + Ord(N[P]) - 48;
WriteLn('Сумма цифр : ', K);
K := Length(N);
for P := 1 to K div 2 do begin C := N[P]; N[P] := N[K + 1 - P]; N[K + 1 - P] := C; end;
WriteLn('В обратном порядке: ', N);
end.
Для 5 задания воспользуйся способом переворота из предыдущего задания, а потом:
While Pos('a', S) > 0 do Delete(S, Pos('a', S), 1);