Program koordunatu;
Var
x,y:real;
Begin
Write( 'x=>' );
readln(x);
Write( 'y=>' );
readln(y);
if (x=0) and (y=0) then
writeln('M(0,0)')
else
if x=0 then
writeln('OY')
else
if y=0 then
writeln('OX');
if (x>0) and (y>0) then writeln('І');
if (x<0) and (y>0) then writeln('II');
if (x<0) and (y<0) then writeln('III');
if (x>0) and (y<0) then writeln('IV')
End.
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
Uses Drawman;
begin
Field(13,5);
topoint(3,4);
pendown;
onvector(-2,0);
onvector(0,-3);
onvector(2,0);
penup;
onvector(1,0);
pendown;
onvector(1,3);
onvector(1,-3);
penup;
onvector(1,0);
pendown;
onvector(0,3);
onvector(0,-3);
onvector(1,0);
onvector(0,3);
onvector(0,-3);
onvector(1,0);
onvector(0,3);
onvector(0,-3);
penup;
onvector(1,0);
pendown;
onvector(1,3);
onvector(1,-3);
penup;
topoint(4,2);
pendown;
onvector(2,0);
penup;
topoint(10,2);
pendown;
onvector(2,0);
penup
end.
Ответ:
M = int (input () )
n = False
for i in range (1, M ):
-for j in range (1, M):
--if M/i == j**2:
---print (int (M/i))
---n = True
---break
-if n:
--break
P.S. Вместо знаков минуса использовать табуляцию. Количество знаков минуса = количество табуляций
