Var
n,x:integer;
a,b,c:byte;
Begin
read (n);
c:=n div 100 mod 10;
b:=n div 10 mod 10;
a:=n div 1 mod 10;
x:=100*a+10*b+1*c;
write (x);
<span>end.</span>
<span>Память является инструментом ХРАНЕНИЯ информации </span>
Значит 2527= количество квартир * количество подъездов
2527 = n * m = 7 * 19 *19
Получается, что если подъездов 7, то в каждом 19 * 19 квартир, что отвечает 19 площадкам, и на каждой площадке в таком случае по 19 квартир.
Или может быть 19 подъездов, 7 этажей по 19 квартир на этаже
Или же 2527 = 7 * 361 * 1 = 133 * 19 * 1
133 подъезда, 1 этаж, на каждом этаже 19 квартир
361 подъезд, 1 этаж, на каждом этаже 7 квартир
Или же 2527 = 2527 * 1 * 1
2527 подъезд, 1 этаж, на каждом этаже по 1 квартире
1 подъезд, 1 этаж, 2527 квартир на этаже
Ответ: 1, 7, 19, 133, 361, 2527
program noname;
uses crt;
var
a:array[1..1000,1..1000] of integer;
i,j,min,n,m,l:integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do begin writeln;
for j:=1 to m do
write(a[i,j],' ');
end;
writeln;
for i:=1 to n do begin
min:=0;
for j:=1 to m do
if min>a[i,j] then begin min:=a[i,j]; l:=j; end;
if min<>0 then
writeln ('v ',i,' stroke indexy poslednego otricatelnogo chisla = ',i,',',l)
else writeln ('v ',i,' stroke otricatelnyh chisel net');
end;
readkey;
end.