1байт=8бит;
1Килобайт=1024байта;
1Мегабайт=1024Килобайта;
1Гигабайт=1024Мегабайта;
2^28=268435456 бит;
268435456\8=33554432 байт;
33554432\1024=32768Килобайт;
32768\1024=32Мегабайт;
32\1024=0.03125Гигабайт.
program r;
const n=20;
var mas:array [0..n,0..n] of byte;
i,j,g,m,a,x1,y1,x2,y2,maxx,maxy,minx,miny:integer;
begin
var
a: array[1..9999] of integer;
i,n,b: integer;
begin
write('Кол-во чисел: '); readln(n);
for i:=1 to n do
begin
write(i, ' число = ');
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then inc(b);
end;
writeln('Кол-во четных чисел, кратных 5: ', b);
end.
Периметр:1)Измеряем сторону квадрата 2)Данное число складываем 4 раза.
Площадь: Измеряем сторону квадрата 2) Данное число умножаем на два.