Склавиатуры вводятся 2 числа. составить алгоритм и программу сравнения этих чисел.

Var i, p: integer; m: array [1..4] of integer; begin  writeln('введите 4 числа: ');   for i : = 1 to 4 do  readln (m[i]);   p : = 0;   writeln('четные числа кратные 3: ');   for i : = 1 to 4   do  if (m[i] mod 2 = 0) and (m[i] mod 3   = 0) then  begin    write (m[i], ' ');     inc(p);   end;   if p = 0 then write('таковых нет');   end.

1 бит на 1 символ, поэтому:

14400*10=144000 символов 

336600*10=3366000 символов 

1/512 мб = 1024/512 кб = 2 кб = 2048 байт = 2048 * 8 бит на 1 символ отводится 2048 * 8 бит / 2048 = 8 бит объём алфавита 2^8 = 256 символов