Записи и строки, PLEASE HELP Опции

[BAEVIK]

Записи и строки
Дано целое число. Создать массив символов, содержащий цифры этого числа в исходном и в обратном порядках.

[amega]

BAEVIK

program _1_;
uses crt;
var
   a:array [1..100] of integer;
   b:array [1..100] of integer;
   c:integer;
   i:integer;
   j:integer;
begin
clrscr;
writeln('vvedite 4islo');
readln©;
i:=0;
writeln('masiv 1:');
while c<>0 do begin
  i:=i+1;
  a[i]:=c mod 10;
  c:=c div 10;
  write(a[i],' ');
end;
writeln;
writeln('masiv 2:');
j:=1;
while i<>0 do begin
  b[j]:=a[i];
  write(b[j],' ');
  i:=i-1;
  j:=j+1;
  end;
readln;
end.

Сообщение отредактировано: amega - 27.01.2009 21:25