Sandra KelleyМожете помочь. Как делать в паскале w6; cif4; cif6.
ответы: 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.
145
VladimirЧтобы ответить необходимо зарегистрироваться.
