// 1.<span>
var</span>
a,b,c: real;
begin
writeln('Введите два катета a,b: ');
readln(a,b);
writeln('Введите гипотенузу c: ');
readln(c);
if sqr(c) = sqr(a) + sqr(b) then writeln('Треугольник прямоугольный.')
else writeln('Треугольник не прямоугольный.');
<span>end.
<em>// 2.
</em>
var
A: array [1..100] of integer;
x,i,n: integer;
begin
writeln('Введите кол-во чисел N: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do readln(A[i]);
writeln('Вы ввели: ');
for i:= 1 to n do write(A[i]:4);
writeln;
for i:= 1 to n do if A[i] > -1 then x:=x+1;
writeln('Среди них положительных: ',x);
<span>end.</span></span>
2,3гб=2300байт,4031мб=403100байт
Множество улиц
Множество городов
Множество о проспектах
Множество площадей
256=2⁸, поэтому каждый символ кодируется 8 битами, строка занимает 10×8=80 бит, страница - 40×80 = 3200 бит, две страницы - 2×3200=6400 бит