Треугольников 40
и 10 квадратов
Var
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
<span>end.</span>
Не знаю как с помощью таблицы,но у меня получился ответ ДХБА
Робот- ходит по одной клетке, может их закрашивать