Уважаемая
Гульназ, да поймите же - то, что выложено, это вовсе никакие не программы, а процедуры и функции! То есть всего лишь составные части программ. Сами по себе они работать не будут - нужно написать программы. Например, для вычисления суммы цифр с преобразованием в строку - так:
Код:
Var
Q:Longint;
Function Sum_Of_Fig(N:LongInt):Byte;
var
SOF,i,Fig:Byte;
S:String;
Code:Integer;
begin
STR(N,S);
SOF:=0;
For i:=1 to Length(S) do
begin
VAL(S[i],Fig,Code);
Inc(SOF,Fig);
end;
Sum_Of_Fig:=SOF;
end;
Begin
Write('Q= ');
Readln(Q);
Writeln('Sum= ',Sum_Of_Fig(Q));
Readln
End.
Ну и т.п.
И еще. Хочу дать Вам один дружеский (поверьте!) совет. Если Вы будете продолжать метаться между школьными задачками по Паскалю и HTML-формами, Ява-скриптами и прочим, и всюду будете пытаться урвать по кусочку - уверяю Вас, толку с этого не будет. То есть абсолютно ни малейшего. Так программирование не осваивают. Просто впустую потратите время, силы и нервы. Тут может быть только системный подход. Извините.