Паскаль

дана строка содержащая любые символы кроме букв.

написать процедуру, которая заменит все цифры в строке на следующие по счету, а 9 замени на 0.

например из строки: "u81 910 jj4" получим: "u92 021 jj5"

использовать заголовок:

procedure zamena(var stroka: string);

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,

рыжие и зеленоглазые - 2

рыжие или зеленоглазые - 6

рыжие и не зеленоглазые - 3

не рыжие и не зеленоглазые - 1

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.     

в первом будет такая закономерность +2,*2,-2 и соответственно 1,3,6,4,6; во второй будет такая: -2; +3; -   9,7,10,8,11; и последняя -1,-1,+5,-1,-,2,1,6,5,4,3.вот и все)