79 из десятичной в двоичную 1001111
131 из десятичной в двоичную 10000011
<span>101011 из двоичной в десятичную 43
</span><span>110110 из двоичной в десятичную </span>54
Var a:byte;
begin
write('a - ');
readln(a);
writeln(a div 100);
writeln((a div 10)mod 10);
writeln(a mod 10);
readln
end.
Var s,p,real;
begin
p:=1;
s:=0;
for var i:=8 to 35 do
if i mod 2 = 0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма четных = ',s,', Произведенние четных = ', p);
end.