Myasasizh
6 год назад
Пожалуйста посчитайте пожалуйста в системе Pascal ABC выполнить проверяемое задание if3
ОТВЕТЫ
Morris Horatio
Oct 24, 2020
uses robot;
begin
Task('if3');
if (WallFromRight and WallFromDown) then
begin
Left; Up;
end
else
if (WallFromDown and WallFromLeft) then
begin
Up; Right;
end
else
if (WallFromLeft and WallFromUp) then
begin
Right; Down;
end
else
if (WallFromUp and WallFromRight) then
begin
Down; Left;
end;
Paint;
end.
begin
Task('if3');
if (WallFromRight and WallFromDown) then
begin
Left; Up;
end
else
if (WallFromDown and WallFromLeft) then
begin
Up; Right;
end
else
if (WallFromLeft and WallFromUp) then
begin
Right; Down;
end
else
if (WallFromUp and WallFromRight) then
begin
Down; Left;
end;
Paint;
end.
785
Смежные вопросы:
