Question

Помогите, пожалуйста. В pascal abc (uses robot) нужно решить if8, if9, if10. Помогите, пожалуйста, как можно скорее!

Answer 1

if8                                                  

program raf105;

uses robot;

var l,d,r,u: boolean;

begin

task('if8');

l:= wallfromleft;

d:= wallfromdown;

r:= wallfromright;

u:= wallfromup;

if l

 then begin right; paint; right; paint;

   if freefromright

     then begin right; paint; end

   end;

if d

 then begin up; paint; up; paint;

   if freefromup

     then begin up; paint; end

   end;

if r

 then begin left; paint; left; paint;

   if freefromleft

     then begin left; paint; end

   end;

if u

 then begin down; paint; down; paint;

   if freefromdown

     then begin down; paint; end

   end;

end.

if9                                                  

program raf105;

uses robot;

var l,r: boolean;

begin

task('if9');

right; r:= wallfromdown;

left;

left; l:= wallfromup;

right;

if r and l

 then begin up; paint; down; down; paint; up; end

 else paint;

end.

if10                                                

program raf105;

uses robot;

var l,r: boolean;

begin

task('if10');

right; r:= cellispainted;

left;

left; l:= cellispainted;

right;

if r or l

 then begin up; paint; end

 else paint;

end.

Answer 2

Конечно, я могу помочь вам с решением задач в Pascal ABC. Однако, чтобы я мог точно понять вашу проблему и предоставить нужную помощь, мне необходимо знать условия и требования к задачам if8, if9 и if10. Пожалуйста, предоставьте мне полные условия этих задач, и я постараюсь помочь вам с решением.