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
if r
then begin left; paint; left; paint;
if freefromleft
then begin left; paint; end
if u
then begin down; paint; down; paint;
if freefromdown
then begin down; paint; end
end.
var l,r: boolean;
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;
task('if10');
right; r:= cellispainted;
left; l:= cellispainted;
if r or l
1)
Program chetnost;
Uses Crt
const arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }
{туда напишешь любые целые}
{которые препод укажет}
var i,sum:integer;
clrscr;
sum:=0;
for i:=1 to 9 do sum:=sum+arr[i];
if (sum mod 2) =0 then writeln('Их сумма чётное число ')
else writeln('Их сумма нечётное число ')
2) Program Nabor;
const n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }
const n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора }
var sum1,sum2,i: integer;
sum1:=0; sum2:=0;
for i:=1 to 8 do
sum1:=sum1+n1[i];
sum2:=sum2+n2[i]
if (sum1=sum2) writeln('Стоимость наборов одинакова ');
if (sum1<sum2) then writeln('Первый набор дешевле ')
else writeln(' Второй набор дешевле ')
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.
if9program 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.
if10program 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.
1)
Program chetnost;
Uses Crt
const arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }
{туда напишешь любые целые}
{которые препод укажет}
var i,sum:integer;
begin
clrscr;
sum:=0;
for i:=1 to 9 do sum:=sum+arr[i];
if (sum mod 2) =0 then writeln('Их сумма чётное число ')
else writeln('Их сумма нечётное число ')
end.
2) Program Nabor;
Uses Crt
const n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }
const n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора }
{туда напишешь любые целые}
{которые препод укажет}
var sum1,sum2,i: integer;
begin
clrscr;
sum1:=0; sum2:=0;
for i:=1 to 8 do
begin
sum1:=sum1+n1[i];
sum2:=sum2+n2[i]
end;
if (sum1=sum2) writeln('Стоимость наборов одинакова ');
if (sum1<sum2) then writeln('Первый набор дешевле ')
else writeln(' Второй набор дешевле ')
end.