Uses crt,graphABC;
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do Go (1,0);
while y<=350 do Go (0,1);
while x>=150 do Go (-1,0);
while y>=150 do Go (0,-1);
until keypressed;
<span>end.
Так сойдет? :)</span>
Берём 2 людоедов перевозим их на 2 берег берём с самой 1 людоеда плывём на 1 высаживаем людоеда и берём 2 людей перевозим на 2 высаживаем берём людоеда плывём на 1 берег берём 2 людоеда и везём на 2 берег)
Ярлык - короткий путь до файла
например, ярлык может указывать на файл E:\members\mem.exe
Если же ярлык скопировать на другой компьютер, то файл просто не будет найден, так как ни папки members, ни файла mem.exe на другом компьютере может не быть
var
s,i: integer; {s,i - цел}
begin
s := 0;
for i := 1 to 5 do
s := s + i;
write(s)
end.
Ответ:
А где сочинение? Прикрепи