Var a,b,c,d,x1,x2: longint; begin read (a, b, c); d: =sqr(b)-4*a*c; x1: = (-b + sqrt(d)) div 2 * a; - id604837720220702 от Papitto 02.07.2022 05:02

Question

Информатика: Var a,b,c,d,x1,x2: longint; begin read (a, b, c); d: =sqr(b)-4*a*c; x1: = (-b + sqrt(d)) div 2 * a; x2: =(-b - sqrt(d)) div 2 * a; write(x1, , x2); end. почему выдает ошибку?

Papitto · Accepted Answer

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
// общая часть
var a:=ReadArrInteger('Массив:',ReadInteger('n='));
var b:=ReadInteger('b=');
// часть для задачи 1
var i:=a.IndexOf(b);
if i<0 then Writeln('Нет совпадений')
else WritelnFormat('1. A[{0}]={1}',i+1,a[i]);
// часть для задачи 2
Writeln('2. k=',a.Where(x->x=b).Count);
// часть для задачи 3
var s:=a.Select((x,i)->x=a[i+1:a.Length].Sum).ToArray;
var k:=s.IndexOf(True);
if k>=0 then WritelnFormat('3. A[{0}]={1}',k+1,a[k])
else Writeln('3. Не существует')
end.

Тестовое решение:
n= 10
Массив: -9 21 0 -9 21 6 -2 14 18 -15
b= -9
1. A[1]=-9
2. k=2
3. A[5]=21

Var a,b,c,d,x1,x2: longint; begin read (a, b, c); d: =sqr(b)-4ac; x1: = (-b + sqrt(d)) div 2 * a; x2: =(-b - sqrt(d)) div 2 * a; write(x1,' ', x2); end. почему выдает ошибку?

MOGZ ответил

Var a,b,c,d,x1,x2: longint; begin read (a, b, c); d: =sqr(b)-4*a*c; x1: = (-b + sqrt(d)) div 2 * a; x2: =(-b - sqrt(d)) div 2 * a; write(x1,' ', x2); end. почему выдает ошибку?

MOGZ ответил

Var a,b,c,d,x1,x2: longint; begin read (a, b, c); d: =sqr(b)-4ac; x1: = (-b + sqrt(d)) div 2 * a; x2: =(-b - sqrt(d)) div 2 * a; write(x1,' ', x2); end. почему выдает ошибку?