Пункт главного меню «Программы» позволяет <span>получить доступ к установленным на компьютере программы.</span>
const xn=100; const xm=100;var x: array [1..xn, 1..xm] of integer; n, m,i,j,r: integer;
begin write('Введите n');Read(n);write('Введите m');Read(m);for i := 1 to n do beginfor j := 1 to m do beginif ((i = 1) or (i = n)or (j = m) or (j = 1)) thenwrite(0:3,' ')else beginif (((i mod 2) = 0)or((j mod 2) = 0))thenwrite((i*i+j*j):3,' ')else beginr:= Round(Random()*15 - 5);write((r):3,' ');end;end;end; Writeln; end;end.
===== PascalABC.NET =====
begin
var a := ReadArrInteger(50);
a.Pairwise.Count( p -> p[0].InRange(100, 999) and
p[1].InRange(100, 999)).Println
end.
10*1024 = 10240 байт
10240/(32*40*8) = 1 байт - столько "весит" 1 символ
1 символ - 8 бит. 2 в восьмой степени равно 256. 256 символов в алфавите