Составить программу на паскале.вычислить корни квадратного уравнения, заданного коэффициентами a, b, c (предполагается, что а< > 0 и что дискриминант уравнения неотрицателен)
Var a,b,c,D,x1,x2:real; begin write('Введите коэффициенты a, b, c: ' ); readln(a,b,c); D:= b*b-4*a*c; if D>0 then begin x1:=(-b-sqrt(D))/2/a; x2:=(-b+sqrt(D))/2/a; writeln('Два корня: ',x1,' и ',x2) end; if D=0 then begin x1:=-b/2/a; writeln('Один корень: ',x1) end; if D<0 then writeln('Корней нет') end.
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган и с в шалаш
Вариант, если исключить однобуквенные:
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var s:=ReadLnString('Вводите:'); s.ToWords.Where(x->x=ReverseString(x)). Where(x->x.Length>1).PrintLn; end.
Тестовое решение: Вводите: дед иван достал наган и пошел с ним в шалаш дед наган шалаш
begin
write('Введите коэффициенты a, b, c: ' );
readln(a,b,c);
D:= b*b-4*a*c;
if D>0 then
begin
x1:=(-b-sqrt(D))/2/a;
x2:=(-b+sqrt(D))/2/a;
writeln('Два корня: ',x1,' и ',x2)
end;
if D=0 then
begin
x1:=-b/2/a;
writeln('Один корень: ',x1)
end;
if D<0 then writeln('Корней нет')
end.