55 в десятичной символ 134
N = 24
N=2^i
i= 5
I= 12*5= 60 бит (лебедя)
I=8*5= 40 (журавля)
<span>months = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);
years = 1900..2100;
people = array[years] of longint;
var
growth: array[months] of real;
hum: people;
notes: array[1..n] of string;</span>
<h2><u>if5 </u></h2>
program raf105;
uses robot;
begin
task('if5');
if (wallfromdown) or (wallfromup)
then begin left; paint; right; right; paint; left;
end;
if (wallfromleft) or (wallfromright)
then begin up; paint; down; down; paint; up;
end;
end.
<h2><u>if6 </u></h2>
program raf105;
uses robot;
begin
task('if6');
up;
if cellispainted
then begin down; down; paint; end
else begin down; down;
if cellispainted
then begin up; up; paint; end
else begin up; left;
if cellispainted
then begin right; right; paint; end
else paint;
end;
end;
end.
<h2><u>if7 </u></h2>
program raf105;
uses robot;
begin
task('if7');
if wallfromright and wallfromdown
then begin up; left; paint; end;
if wallfromleft and wallfromdown
then begin up; right; paint; end;
if wallfromup and wallfromleft
then begin right; down; paint; end;
if wallfromup and wallfromright
then begin down; left; paint; end
end.