На экране появится квадрат. Черепашка проходит 45 шагов вперед, поворачивается на 90 градусов, опять проходит 45 шагов, опять поворачивает... И так 180 раз.
Program n1;
var a,b: integer;
begin
a:=-3;
b:=11;
while a<=4 do
begin
a:=a+2;
b:=b-1;
end;
while b>0 do
begin
b:=b-1;
a:=a+1;
end;
writeln(a);
end.
//скомплировал, компилятор выдал а=12;
Var
m: array [1..9] of integer;
i: integer;
begin
for i:= 1 to 9 do
begin
if i mod 3=1 then m[i]:= random(100,999);
if i mod 3=2 then m[i]:= i*10;
if i mod 3=0 then m[i]:= m[i-2] + m[i-1];
write (m[i],' ');
end
<span>end.</span>