Ответ:
uses Robot;
var k:integer;
begin
Task('count16');
while FreeFromRight do
if CellIsPainted then k:=k+1;
if k mod 2 <> 0 then paint;
right
end;
if k mod 2 <> 0 then paint
end.
Объяснение:
картинки
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.
Объяснение:
картинки