Var
a1,a2:integer;
begin
writeln('Введите а1');
read(a1);
writeln('Введите а2');
read(a2);
a1:=sqr(a1);
a2:=sqr(a2);
if a1>a2 then
writeln('Площадь а1 больше')
else
writeln('Площадь а2 больше');
end.
11011(2) × 101(2) = 10000<span>111(2)
</span>
<em>1) 100001100 = 1∙2^8 + 0∙2^7 + 0∙2^6 + 0∙2^5 + 0∙2^4 + 1∙2^3 + 1∙2^2 + 0∙2^1 + 0∙2^0 = 268</em><span>
<em>2) путем долгого деления получилось 10001001</em>
<em>3 a) </em></span><em>151 = 1∙8^2 + 5∙8^1 + 1∙8^0</em><span><em> = 105</em>
</span><em>3 б) 2C</em><span><em> = 2∙16^</em></span><em>1</em><span><em> + C∙16^</em></span><em>0</em><span><em> = 44</em></span>
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Кодирование - переход от одной формы представления информации к другой, более удобной для восприятия, хранения, передачи или обработки информации.