var a: integer;
begin
readln(a);
if a<0 then a:=(-1)*a;
if (a mod 2<>0) and (a>9) and (a<100) then
write(a,' - нечетное двузначное число') else
write(a,' - не является нечетным двузначным числом');
end.
Адрес должен начинаться с латинской буквы, содержать буквы и цифры, поэтому адресом не могут быть U6!, 1K.
Значит правильные адреса M45 (M - латинская!!!) и АА12 (А, естественно, латинская)
Пусть есть строчный массив
for i:=1 to n do for k:=1 to length(a) do begin if a[i,k]=' ' then begin u:=u+1;if u=2 then j:=k;if u=3 then y:=k;if u=4 then l:=k;end;if copy(s,j+1,9)='подгорный' then begin if a[i,y+3]=' ' then p:=copy(s,y+1,2) else p:=copy(s,y+1,3);if a[i,l+3]>lingth(a) then t:=copy(s,l+1,3) else t:=copy(s,l+1,2);end;c:=val(p,h,cod);b:=val(p,h,cod);q:=c+b;if e=1 then e:=q;if e>q then e:=q;end;
for i;=1 to n do for i:=1 to k do write(a);
write(' ');
write(' ');
write(e);
наверное так, но я не знаю как файлы открывать
<span />