Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Задание 7 класс PascalABC

Дед Новерное Ученик (108), на голосовании 10 месяцев назад
Нужно закрасить 3 первых и последних квадратика
Дополнен 11 месяцев назад
ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНОО
Голосование за лучший ответ
Foxy Гуру (3875) 11 месяцев назад
нормально условие опиши
у тебя линия из квадратов и надо закрасить три первых и последних?
Дед НоверноеУченик (108) 11 месяцев назад
Второе
FoxyГуру (3875) 11 месяцев назад
uses robot;
begin
task ('w2');
if FreeFromLeft=true then
while FreeFromLeft do
left;
end
else
if i<3 then
paint;
right;
i:=i+1;
end

i:=0;

if FreeFromRight=true then
while FreeFromRight do
right;
end
else
if i<3 then
paint;
left;
i:=i+1;
end
end.
как то так, я паскаль уже забыл
Похожие вопросы