Var x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer; begin read(x1,y1,x2,y2,x,y); x3:=x1; y3:=y2; x4:=x2; y4:=y1; if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else if (x<x1) and (y>y3) then writeln('NW') else if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else if (x>x2) and (y>y3) then writeln('NE') else if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else if (x>x2) and (y<y4) then writeln('SE') else if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else if (x<x1) and (y<y1) then writeln('SW'); end.
PascalABC.NET 3.2: 1. begin write(ReadString.indexof(':')) end. Пример ввода: 1234:56 Пример вывода: 4
2. begin write(readString.ToWords.Select(x->x[1]).JoinIntoString) end. Пример ввода: Как любила язвить королева, собаки апплодировали Пример вывода: Клякса 3. begin write(readString.ToWords.Select(s->Length(s)).Max) end. Пример ввода: Не хочу учиться хочу жениться Пример вывода: 8 4. Если там нет знаков препинания: begin write(readString.ToWords.Select(s->ReverseString(s)).JoinIntoString(' ')) end. Если там есть знаки препинания, которые надо оставить на месте, то настолько же короткого решения мне не придумалось, можно так: begin var str := readString + ' '; var m := ''; for var i := 1 to str.Length do if str[i].IsLetter then m += str[i] else begin write(ReverseString(m), str[i]); m := ''; end; end. Пример ввода: амар алым умам Пример вывода: рама мыла маму
Var x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer;
begin
read(x1,y1,x2,y2,x,y);
x3:=x1;
y3:=y2;
x4:=x2;
y4:=y1;
if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else
if (x<x1) and (y>y3) then writeln('NW') else
if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else
if (x>x2) and (y>y3) then writeln('NE') else
if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else
if (x>x2) and (y<y4) then writeln('SE') else
if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else
if (x<x1) and (y<y1) then writeln('SW');
end.
Пример ввода:
-2 1 4 4 -3 5
Пример вывода:
NW