Пуск- программы- стандартные- Левая кнопка мыши- Paint
program n_1;
var n, m, i: int64;
begin
readln(n);
m:=1;
i:=0;
while n>0 do begin
if (n mod 10) mod 3 = 0 then begin write(m,' '); i:=1; end;
n:=n div 10;
m:=m+1;
end;
if i=0 then write('Таких разрядов нет');
end.
1. 114-66=48
2. 66-48=18
3. 48-18=30
4. 30-18=12
5. 18-12=6
6.12-6=6
Итого 6 шагов
Например Цветы розовые и оранжевые они пересекаются в точке круги не выделяющие резинку надо обвести красным или синим цветом остаться множество это надо ли вести кружочком или