Регистрация
simonenkoeliza
16.01.2020 11:55
Информатика
Есть ответ 👍

Напишите программу на паскале -точка (x, y) находится в области a; – точка (x, y) находится в области b; – точка (x, y) находится в области c; – точка (x, y) находится вне всех областей. примечание: точки, лежащие на разделительных линиях, принад-лежат области b.

156
473
Посмотреть ответы 1

Ответы на вопрос:

Dasha826251
Dasha826251
4,8(87 оценок)
Var s: string; i,n: integer; begin readln(s); n: =length(s); i: =i+1; while i< =n do begin if (s[i]='«') or (s[i]='»') then begin delete(s,i,1); i: =i-1; n: =n-1; end; i: =i+1; end; writeln(s); end.var s,a,b: string; i,k,l,n: integer; beginreadln(s); n: =length(s); for i: =1 to n doif s[i]=' ' thenbegink: =i; break; end; for i: =n downto 1 doif s[i]=' ' thenbeginl: =i; break; end; a: =copy(s,1,k-1); b: =copy(s,l+1,n-l-1); delete(s,l,n-k); delete(s,1,k); s: =b+' '+s+' '+a+'.'; writeln(s); end.

Популярно: Информатика