// PascalABC.NET 3.1, сборка 1246 от 23.05.2016
begin
ReadlnString('>').ToCharArray.Shuffle.Println('')
end.
<u><em>Тестовое решение:</em></u>
> Информатика
фмИатрниаок
Ответ:
1,2,4
Объяснение: можно из А сразу в D попасть
Var
a,b,c : integer;
d,x1,x2,s : real;
begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
<span> end.</span>
Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам
