На питоне.решить в действительных числах уравнение ax^2+bx+c.выдать код ситуации и значения корней: -1 - бесконечное множество решений; 0 - нет действительных корней; 1 - уравнение выражается в линейное, выдать x; 2 - уравнение квадратное, два различных корня, выдать x1 и x2; 3 - уравнение квадратное, кратный корень, выдать x; значения корней выводить с двумя знаками после десятичной точки в порядке возрастания.
Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
Begin
S:=S + (A mod 10);
A:=A div 10;
End;
WriteLn('S = ',S)
End.
И так:
Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.
Или так
Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.