Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var i: integer;
begin
for i: =1 to 1000 do
if (i mod 3=0) or (i mod 7=0) then write(i);
end.
2 единицы т.к 1025=10000000001 в двоичной системе счисления
Популярные вопросы