Вдвоичной системе написать год.число, месяц рождения. 29.01.1998

11101.1.1111101110

Var number: integer;       digit: integer;       res: boolean; begin   readln(number);   digit: =number mod 10;   number: =number div 10;   res: =true;   while number> 0 do begin       if digit< > number mod 10 then begin           res: =false;           break;       end;       number: =number div 10;   end;   if res then writeln('верно') else writeln('неверно'); end.

{заполнить двумерный массив n x n случайными числами из интервала [-10 ; 10],  выяснить что больше сумма элементов лежащих над главной диагональю или  под главной диагональю.}const nmax = 20; var a: array[1..nmax,1..nmax] of integer; n,m,i,j,sumn,sumv: integer; beginwrite('введите число n'); readln(n); for i: =1 to n do beginfor j: =1 to n do beginm: = random(20)-10; a[i,j]: = m; write(a[i,j]: 4); end; writeln; end; writeln; writeln; for i: =1 to n do beginfor j: =1 to n do beginif i> j then begin write(a[i,j]: 4); sumn: = sumn + a[i,j]; end; end; writeln; end; writeln; writeln; for i: =1 to n do beginfor j: =1 to n do beginif i < j then begin write(a[i,j]: 4); sumv: = sumv + a[i,j]; end; end; writeln; end; if sumn > sumv then write('cумма элементов лежащих под главной диагональю больше')else write('cумма элементов лежащих над главной диагональю больше'); end.