Question

Найдите ошибку program Minvaleev var a,b,x1: integer; y1, y2, x2: real; begin a:=3; x1:=2; x2:=-2; writeln('введите в'); readln(в); if x1>0 then y1:=SQRT(a+SQR(b))-3else y1:=2*a+b; if x2>0 then y2:=SQRT(a+SQR(b))-3else y2:=2*a+b; writeln ('minvaleev y1=',y1:5:3); writeln ('minvaleev y2=',y2:5:3); readln; end.

Answer 1

В первой строке после Minvaleev поставить точку с запятой
в строке readln(в); должна быть не русская "В", а английская, то есть  readln(b);

Answer 2

В предоставленном коде присутствует ошибка в следующей строке:

scssCopy code
writeln('введите в'); readln(в);

Ошибкой является использование неправильного символа "в" вместо переменной "b". Вероятно, ошибка произошла при наборе кода, и вместо "b" была нажата клавиша "в". Чтобы исправить ошибку, замените "в" на "b" в обеих строках:

scssCopy code
writeln('введите b'); readln(b);

После этой правки код будет выглядеть следующим образом:

pascalCopy code
program Minvaleev;
var
  a, b, x1: integer;
  y1, y2, x2: real;

begin
  a := 3;
  x1 := 2;
  x2 := -2;

  writeln('Введите b');
  readln(b);

  if x1 > 0 then
    y1 := sqrt(a + sqr(b)) - 3
  else
    y1 := 2 * a + b;

  if x2 > 0 then
    y2 := sqrt(a + sqr(b)) - 3
  else
    y2 := 2 * a + b;

  writeln('minvaleev y1=', y1:5:3);
  writeln('minvaleev y2=', y2:5:3);
  readln;
end.

После внесения этой коррекции код будет выполняться правильно.