Выпишите целые десятичные числа, принадлежащие промежуткам: a) [1011012; 1100002] b) [148; 208] c) [2816; 3016]

1.

const nn=50; vara: array [1..nn,1..nn] of integer; i,j,k,l,n: integer; beginwriteln('n= '); readln(n); for i: =1 to n do  for j: = 1 to n do      readln(a[i,j]);   writeln;   writeln('сформированный массив: ');   for i: =1 to n do  begin  for j: = 1 to n do      write(a[i,j],' ');       writeln; end; writeln; writeln('индексы равных элементов: '); for i: =1 to n do      for j: = 1 to n do          for k: =i+1 to n do              for l: = j to n do              if (a[i,j] = a[k,l]) then writeln('[',i,',',j,'] = [' ,k,',',l,']'); end.

2. недостаточно данных для решения .

uses crt; type trec = record fio: string[20]; tel: string[7] end; var rec: trec; i: integer; who: string; flag: boolean; a: array [1..20] of trec;

begina[1].fio : = 'иванов петр'; a[1].tel : = '+374844'; a[2].fio : = 'крылова света'; a[2].tel : = '+373129'; a[3].fio : = 'соловей иван'; a[3].tel : = '+370929'; //создай дальше до 10 самаwrite('write fio '); readln(who); for i: =1 to 3 dobegin

if a[i].fio = who then begin writeln('номер ',who,' = ',a[i].tel) ; flag: =true; endelseflag: =false; end; if flag=false thenwriteln('cannot find ',who); readln; end.