//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
Можно уменьшить отступы(сверху, снизу), межстрочный интервал, убрать лишние переходы на новую строку, сменить шрифт на более компактный, изменить размер шрифта
Для 2-байтовой ячейки:
59 = 0000000000111011
-59= 1000000000111011 - прямой код
= 1111111111000100 - обратный код (инверсия)
= 1111111111000101 - дополнительный код (после прибавления единички)
30 = 0000000000011110
-30 = 1000000000011110 - прямой код
= 1111111111100001 - обратный код (инверсия)
= 1111111111100010 - дополнительный код (после прибавления единички)
*********************************
Расчеты смотри на фото
Название программы.
Объявление переменных.
Процедуры и функции
Основная программа, начинаемая begin и заканчивая end.