Формативное оценивание за раздел работы с документами 1 вариант ​

Program Markovsp1;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
  writeln();
  s:=0;
  i:=1;
  repeat
    t:=1/((i)*(i));
    s:=s+t;
    //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
    i:=i+1;
  until abs(t)<eps;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

Program Markovsp2;
uses crt;
const
  eps=0.001;
var
  t,s:real;
  i:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  writeln('Программа вычисляет частичную сумму ряда ');
  writeln('  S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
  writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
  writeln();
  s:=0;
  i:=1;
  t:=1;
  while t>eps do
    begin
      t:=1/(i*i);
      s:=s+t;
      //writeln('i=',i,'  T=',t:0:6,'  S=',s:0:6);
      i:=i+1;
     end;
  writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
  writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.

1) в расстановке скобок здесь ошибка, в решении показан один из возможных вариантов исправления этой ошибки:
F:=not((x<0) and (y<0)) or ((z<-2) and D) ⇒
not((-3<0) and (3<0)) or ((-5<-2) and false) ⇒ 
not(true and false) or (true and false) ⇒ not false or false ⇒ true or false ⇒ true

2) здесь тоже в условии что-то не то (z - лишняя переменная получается) и корень из чего извлекать - тоже непонятно
var x,a,y:real;
begin
x:=3;
a:=ln(abs(x+1))/ln(10);
y:=exp(ln(5)*(1/3))*a*a-3*x*x;
writeln('y = ',y);
end.
Результат:
y = -26.3801743600581

3)
a=5; b=8; c=-2;
a<b ⇒ 5<8 ⇒ true, a=a+1=5+1=6
a<b ⇒ 6<8 ⇒ true, a=a+1=6+1=7
a<b ⇒ 7<8 ⇒ true, a=a+1=7+1=8
a<b ⇒ 8<8 ⇒ false
c=c+1=-2+1=-1
ответ: c=-1

4)
SetColor(red); - устанавливается цвет рисования (красный)
Setfillstyle(1,2); - устанавливается стиль заливки (1 - заполнение текущим цветом, 2 - зеленый цвет)
SetBkcolor(15); - устанавливается цвет фона (15-белый; экран сразу же окрашивается в заданный цвет)
Circle(200,200,50); - рисуется окружность (центр 200, 200; радиус 50)
О какой области спрашивается - непонятно.

5)
n- длина строки s (количество символов в строке) n = 10 (пробела после 'До' нет)