Действительные числа a, b, c (a не равно 0). Выяснить, имеет ли квадратное уравнение действительные корни. Если действительные корни имеются, то найти их. В противном случае ответом должно служить сообщение, что действительных корней нет
1) 100102<span> = 2</span>4*1 + 23*0 + 22*0 + 21*1 + 20<span>*0 = 16 + 0 + 0 + 2 + 0 = 18
</span>100102<span>=18
</span>2) 1001012<span> = 2</span>5*1 + 24*0 + 23*0 + 22*1 + 21*0 + 20<span>*1 = 32 + 0 + 0 + 4 + 0 + 1 = 37
</span>1001012<span>=37</span>
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф
Znanija.ru online, Steam , Adme