1шаг влево
2шага вниз
1шаг направо
1шаг вверх
1шаг влево
если с поворотами то примерно так:
1шаг влево
повернуться против часовой стрелки
2 шага прямо
повернутся против часовой стерлки
1шаг прямо
повернуться против часовй стрелки
1 шаг прямо
повернуться против часовй стреки
1 шаг прямо
Var
a, min: integer;
begin
min :=30000;
repeat
readln(a);
if (a mod 3 = 0) and (a < min) and (a <> 0) then
min := a;
until a = 0;
writeln(min);
<span>end.</span>
Var a: array[0..9] of Integer;
i,k,b,c: Integer;
begin
for i:=0 to 9 do
begin
a[i]:=Random(100);
writeln(i+1,' число: ',a[i]);
end;
for i:=0 to 9 do
begin
for k:=0 to 9 do
begin
if a[i]<a[k] then
begin
b:=a[i];
c:=a[k];
a[i]:=c;
a[k]:=b;
k:=0;
end;
end;
end;
writeln('Числа по возрастанию:');
for i:=0 to 9 do
writeln(i+1,' число: ',a[i]);
begin
end;
end.
For(x = 0; x < 20; x++)
{
for(y = 0; y < 20; y++)
{
for(z = 0; z < 20; z++)
{
if(x * x * y == z * z)
{
printf("\%d \%d \%d", x, y, z);
}
}
}
}
// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.