Переливаем так:
1 (3 л.): 0 0 3 3 0 3 0 3 1 1 0 3 0 3 0
2 (8 л.): 0 8 5 0 3 3 6 6 8 0 1 1 4 4 7 <----- PROFIT!
Program lol;
var a:integer;
begin
for a:=100 downto 1 do
begin
if a mod 3 = 0 then
writeln(a);
end;
<span>end.
P.S.
в строке </span>for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает<span>
</span>
Оно же на казахском!!!,не чем помочь не могу,прости)
Ответ Г. так как можно догадаться логически , сначала промежуток между 65 и 33 = 32 , потом 16, потом 9 а потом уже и будет продолжение 1