Переводим числа в двоичную систему счисления. Получаем:
а) 01000001 10000000 11111111 00001100
б) 11000000 00110000 00000000 00011000
Sum:=0;
for i:=55 downto 42 do sum:=sum+i;
Помучился но все таки выполнил данное задание
Pascal
ввод <span>ReadLn(A1,A2,...AK)
вывод Whrite</span>(A1,A2,...AK)
QBasic
ввод Print
вывод Input
Var n:integer;
procedure del(x:integer);
var d:integer;
begin
d:=2;
if(x>1)then begin
while x mod d<>0 do d:=d+1;
if(x div d >1)then write(d,'*')
else write(d);
del(x div d)
end
else exit;
end;
begin
read(n);
write(n, ' = ');
if(n<2) then write(n)
else del(n);
end.