Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатами(х, y если точка лежит на оси координат или в начале координат, то выведите соответствующее сообщение. числа х, y вводятся с клавиатуры. желательно с объяснением.

Pascal: var x,y: integer; begin readln (x,y); if (x> 0) and (y> 0) then writeln ('точка лежит в первой четверти'); if (x< 0) and (y> 0) then  writeln ('точка лежит во второй четверти'); if (x< 0) and (y< 0) then writeln ('точка лежит в третьей четверти'); if (x> 0) and (y< 0) then writeln ('точка лежит  в четвертой четверти'); if (x=0) and (y=0) then writeln ('точка лежит на пересечении осей') else if x=0 then writeln ('точка лежит на оси ординат') else if y=0 then  writeln ('точка лежит на оси абсцисс'); readln; end.

// pascalabc.net 3.0, сборка 1088 const   nday: array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31); type   date=record       day,month,year: integer   end;   function dow(dat: date): integer; // день недели по дате. 0-вс. 1-пн, 7-сб var   a,y,m: integer; begin   with dat do begin       a: =(14 - month) div 12;       y: =year-a;       m: =month+12*a-2;       dow: =(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7       end end; procedure dmy2date(d,m,y: integer; var data: date); // преобразует к дате заданные день, месяц и год begin   data.day: =d; data.month: =m; data.year: =y end; procedure lastdays(month,year: integer; var wd,fr: date); // даты последней среды (wd) и пятницы (fr) для месяца в году } var   lastday: date;   n: integer; begin   n: =nday[month];   if (month=2) and (year mod 4 = 0) then inc(n);   dmy2date(n,month,year,lastday);   n: =dow(lastday); // номер последнего дня недели   wd.month: =month; wd.year: =year;   if n< 3 then wd.day: =lastday.day-(n+4)   else       if n=3 then wd.day: =lastday.day       else wd.day: =lastday.day+3-n;   fr.month: =month; fr.year: =year;   if n< 5 then fr.day: =lastday.day-(n+2)   else       if n=3 then fr.day: =lastday.day       else fr.day: =lastday.day-1 end; var   wd,fr: date;   ff,mf: text;   m: integer; begin   assign(ff,'father.txt'); rewrite(ff);   assign(mf,'mother.txt'); rewrite(mf);   // сентябрь-декабрь 2015 года   for m: =9 to 12 do begin       lastdays(m,2015,wd,fr);       if odd(wd.day) then writeln(mf,wd.day,'.',m,'.2015 - 1 класс')       else writeln(ff,wd.day,'.',m,'.2015 - 1 класс');       if odd(fr.day) then writeln(mf,fr.day,'.',m,'.2015 - 5 класс')       else writeln(ff,fr.day,'.',m,'.2015 - 5 класс')   end;   // январь - май 2016 года   for m: =1 to 5 do begin       lastdays(m,2016,wd,fr);       if odd(wd.day) then writeln(mf,wd.day,'.',m,'.2016 - 1 класс')       else writeln(ff,wd.day,'.',m,'.2016 - 1 класс');       if odd(fr.day) then writeln(mf,fr.day,'.',m,'.2016 - 5 класс')       else writeln(ff,fr.day,'.',m,'.2016 - 5 класс')   end;   close(ff); close(mf) end. содержимое выходных файлов: father.txt 30.9.2015 - 1 класс 28.10.2015 - 1 класс 30.10.2015 - 5 класс 30.12.2015 - 1 класс 24.2.2016 - 1 класс 26.2.2016 - 5 класс 30.3.2016 - 1 класс mother.txt 25.9.2015 - 5 класс 25.11.2015 - 1 класс 27.11.2015 - 5 класс 25.12.2015 - 5 класс 27.1.2016 - 1 класс 29.1.2016 - 5 класс 25.3.2016 - 5 класс 27.4.2016 - 1 класс 29.4.2016 - 5 класс 25.5.2016 - 1 класс 27.5.2016 - 5 класс

1) Какие и органы чувств использует человек при восприятии информации?

ответ восприятия информации зависит от органов чувств.

2) Каковы должны быть свойства информации, представленной в форме сообщений? ответ: Человек - это разумное существо. Он не может существовать вне общества. Когда мы общаемся с людьми, мы получаем сообщения, которые передаём другим. Для того, чтобы было понятно, о чём говорят люди, мы должны знать языки. Поэтому понятность - это одно из свойств информации

3)Каковы должны быть свойства информации, представленной в форме знаний?

ответ: Чтобы человек мог ориентироваться в окружающем мире, информация должна быть точной и полной. Полнота и точность - это ещё два свойства информации. Все знания, которые дошли до наших времён, передавались из поколения в поколение. Раньше основным носителем информации была бумага, а сейчас используют магнитные носители, flash - память и оптические носители (CD и DVD).

4) Каковы должны быть свойства информации, распространяемой средствами массовой информации?

ответ: Есть такой термин "средства массовой информации" - СМИ ( газеты, радио, телевидение). С этих средств, информация доходит до каждого человека. Такая информация должна быть достоверной, актуальной и полезной. Это ещё три важных свойства информации