Помощь в Pascale

[ole4ka]

Помощь в Pascale

*Обработка строк.
1.Скласты программу, которая предусматривала бы введение последовательности символов:
Найти длину самой длинной последовательности цифр, идущих подряд.
2.Дано последовательность символов
Последовательность*содержит Ваша фамилия, имя, отчество. Превратить ее таким образом, чтобы сначала данные были размещены в следующем порядке: Ваше имя, отчество, фамилию.

 

[Vladimir_S]

*Обработка строк.
1.Скласты программу, которая предусматривала бы введение последовательности символов:
Найти длину самой длинной последовательности цифр, идущих подряд.

VAR
 S:String;
 i, N_old, N_new:Byte;
BEGIN
 Writeln('Enter the symbol sequence:');
 Readln(S);
 N_old:=0;
 i:=0;
 Repeat
  Inc(i);
  If (Ord(S[i])>47) and (Ord(S[i])<58) then
   begin
    N_new:=1;
    repeat
     Inc(i);
     If (Ord(S[i])>47) and (Ord(S[i])<58) then Inc(N_new);
    until (Ord(S[i])<48) or (Ord(S[i])>57) or (i=Length(S));
   end;
  If N_new>N_old then N_old:=N_new;
 Until i=Length(S);
 Writeln('The length of the longest digital sequence is ',N_old);
 Readln;
END.

2.Дано последовательность символов
Последовательность*содержит Ваша фамилия, имя, отчество. Превратить ее таким образом, чтобы сначала данные были размещены в следующем порядке: Ваше имя, отчество, фамилию.

VAR
 S:String;
 i,j,i1,i2:Byte;
 W:Array[1..3] of String;

BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);

 i:=0;
 j:=0;
 Repeat
  Repeat
   Inc(i);
  Until S[i]<>' ';
  i1:=i;
  While (S[i]<>' ') and (i<Length(S)) do
   Inc(i);
  If i=Length(S) then i2:=i else i2:=i-1;
  Inc(j);
  W[j]:=Copy(S,i1,i2-i1+1);
 Until i=Length(S);
 WriteLn(W[2]+' '+W[3]+' '+W[1]);
 ReadLn;
END.