Можете пожалуйста помочь. Как делать в паскале w6; cif4; cif6.
Ответы на вопрос
Ответил valgrisa
0
Ответ:
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.
Новые вопросы