Question

Решите в Паскале пожалуйста!

Answer 1

Ответ:

uses Robot;

var k:integer;

begin

Task('count16');

while FreeFromRight do

begin

if CellIsPainted then k:=k+1;

if k mod 2 <> 0 then paint;

right

end;

if k mod 2 <> 0 then paint

end.

Объяснение:

картинки