Question

Можете пожалуйста помочь. Как делать в паскале w6; cif4; cif6.

Answer 1

Ответ:

uses Robot;

begin

Task('w6');

while freefromdown do

begin

down;

while wallfromdown and freefromright do right;

end

end.

uses Robot;

begin

Task('cif4');

while FreeFromRight do

begin

right;

if WallFromUp and FreeFromDown then paint

end

end.

uses Robot;

begin

Task('cif6');

while FreeFromRight do

begin

right;

if FreeFromUp or FreeFromDown then paint

end

end.