Quote (Demanovich)
Задание 2. Составьте программу для решения следующей задачи обработки двумерных массивов произвольной длины. Выведите на монитор исходные данные и результат.
1. Заданы натуральное четырехзначное число и двумерный массив, элементами которого являются натуральные четырехзначные числа. Определить, имеется ли в таблице число с обратным порядком расположения цифр по отношению к данному. Найти его индексы.
var
mass:array[1..100,1..100]of integer;
i,j,n,chislo,ii,jj:integer;
flag:boolean;
begin
flag:=false;
read(chislo);
read(n);
for i:=1 to n do
for j:=1 to n do begin
read(mass[i,j]);
if (chislo div 1000=mass[i,j] mod 10)and
(chislo mod 1000 div 100=mass[i,j] mod 100 div 10)and
(chislo mod 100 div 10=mass[i,j] mod 1000 div 100)and
(chislo mod 10=mass[i,j] div 1000) then begin
flag:=true;ii:=i;jj:=j;end;end;
if flag then begin writeln('yes');writeln(ii,' ',jj);end else writeln('no');
end.
