Var x,y:real;
begin
read (x,y);
if (x<0) and (y<0) then writeln (abs(x),' ',abs(y)) else
if ((x<0) and (y>=0)) or ((y<0) and (x>=0)) then writeln (x+27,' ',y+27) else
if (x>=0)and (y>=0) then writeln (x-20,' ',y-20);
end.
Ответ:
1) 4; 2) 6; 3) 1; 4) 5; 5) 2; 6) 8; 7) 9; 8) 3; 9) 7.
100% 3 способа тв что ето же проще простого
Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);
line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);
line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);
floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.
Я включил компьютер и набрал на клавиатуре сочинение про свою семью. Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру, быстро двигая мышью. Получив рекордный результат, я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов.