program tz;
var
a,b:integer;
i:byte;
begin
writeln('vvedite 4x znachnoe chislo');
readln(a);
b:=1;
for i:=1 to 4 do begin
b:=b*(a mod 10);
a:=a div 10
end;
if (b mod 4) = 0 then
writeln(b,' Kratno 4')
else
writeln(b,' Ne kratno 4');
readln;
end.
Таблица 32 * 16 = 2⁹ символов. Тогда информационный объем одного символа 9 бит. 600 * 9 = 5.400 бит.
Множество-это совокупность объектов,определённая некоторым правилом.
85+29×162-783=4000 10
FA0 16
7640 8
111110100000 2
Не самый рациональный метод решения, но как говорится чем смог тем помог)
var a,b,c,x,kc,kn,k1,k2:integer;
<span>begin </span>
<span>kc:=1; </span>
<span>kn:=1; </span>
<span>k1:=0; </span>
<span>k2:=0; </span>
<span>a:=0; </span>
<span>b:=0; </span>
<span>writeln('Введите число x'); </span>
<span>read(x); </span>
<span>while x>0 do begin </span>
<span>c:=x mod 10; </span>
<span>if c mod 2=0 then begin </span>
<span>inc(k1); </span>
<span>a:=a+c*kc; </span>
<span>kc:=kc*10; </span>
<span>end; </span>
<span>if c mod 2<>0 then begin </span>
<span>inc(k2); </span>
<span>b:=b+c*kn; </span>
<span>kn:=kn*10; </span>
<span>end; </span>
<span>x:=x div 10; </span>
<span>end; </span>
<span>if k1>k2 then writeln('Четных больше нечетных') else if k1=k2 then writeln('Количество четных = количеству нечетных') else writeln('Четных меньше нечетных'); </span>
<span>writeln(a,' ', b); </span>
<span>end. </span>
