Задание №1
var x1,x2,y1,y2:longint;
<span>begin </span>
<span>writeln('Введите координаты точки A (x1;y1)'); </span>
<span>read(x1,y1); </span>
<span>writeln('Введите координаты точки B (x2;y2)'); </span>
<span>read(x2,y2); </span>
<span>if sqrt(sqr(x1)+sqr(y1))>sqrt(sqr(x2)+sqr(y2)) then writeln('Точк В ближе') </span>
<span>else if sqrt(sqr(x1)+sqr(y1))<sqrt(sqr(x2)+sqr(y2)) then writeln('Точк А ближе') </span>
<span>else writeln('Точки равноудалены от начала координат'); </span>
<span>end.
</span>
Задание №2
Пункт А)
var x,y:real;
<span>begin </span>
<span>writeln('Введите число x'); </span>
<span>read(x); </span>
<span>if x<=2 then y:=sqr(x)+4*x+5; </span>
<span>if x>2 then y:=1/(sqr(x)+4*x+5); </span>
<span>writeln('Y = ',y); </span>
<span>end.
</span>
Пункт Б)
var x,y:real;
<span>begin </span>
<span>writeln('Введите число x'); </span>
<span>read(x); </span>
<span>if (x>=0) and (x<=3) then y:=sqr(x); </span>
<span>if (x>3) or (x<0) then y:=4; </span>
<span>writeln('Y = ',y); </span>
<span>end.
</span>
Задание №3
var m1,m2,m3,n1,n2,n3,p1,p2,p3,s1,s2,s3:integer;
<span>begin </span>
<span>writeln('Введите через пробел баллы, которые набрал Иванов '); </span>
<span>read(m1,n1,p1); </span>
<span>writeln('Введите через пробел баллы, которые набрал Петров '); </span>
<span>read(m2,n2,p2); </span>
<span>writeln('Введите через пробел баллы, которые набрал Сидоров '); </span>
<span>read(m3,n3,p3); </span>
<span>s1:=m1+n1+n1; </span>
<span>s2:=m2+n2+n2; </span>
<span>s3:=m3+n3+n3; </span>
<span>if (s1>s2) and (s1>s3) then writeln('Победитель набрал ', s1); </span>
<span>if (s2>s1) and (s2>s3) then writeln('Победитель набрал ', s2); </span>
<span>if (s3>s1) and (s3>s2) then writeln('Победитель набрал ', s3); </span>
<span>end.</span>
125+101х2-141=186 незачто!)))
1) коды управления форматами текста
2) коды типа шрифта и размера шрифта
3) коды полей отступа
4) коды положения строк
5) коды таблиц
6) коды оглавлений
и т. д.