Запиши развёрнутую запись числа 0, 655 для дробной части числа. информатика ​

Квадратное уравнение имеет вид: ах^2 + bx + c = 0. (1)здесь а, b и с – коэффициенты. сначала надо вычислить дискриминант квадратного уравненияd = (b^2 – 4ac) (2)если d > 0, то квадратное уравнение имеет два корня х1 и х2. обозначим с = корень(d). то есть надо вычислить квадратный корень из d. имеем такие решениях1 = (–b + c)/(2a) и x2 = (–b – c)/(2a). (3)если дискриминант d = 0, то c = 0 и оба корня одинаковы х1 = х2 (хотя в школе обычно говорят, что имеется только одно решение) и вычисляются по формулех1 = х2 = –b/(2a). (4). эта формула следует из формулы (3) при с = d = 0.если дискриминант d меньше нуля, то корень из d вычислить нельзя, с будет мнимым числом. вообще говоря, корни есть (2 штуки), но они будут мнимыми числами. хотя в школе учат, что в этом случае корней нет. так и будем считать, что корней нет.алгоритм решения будет следующий но только здесь дискриминант d обозначен малой буквой d

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=''+
         '';
  foreach var c in s do Writeln(c,' ',ORDANSI(c))
end.

Результат
А 192
Б 193
В 194
Г 195
Д 196
Е 197
Ё 168
Ж 198
З 199
И 200
Й 201
К 202
Л 203
М 204
Н 205
О 206
П 207
Р 208
С 209
Т 210
У 211
Ф 212
Х 213
Ц 214
Ч 215
Ш 216
Щ 217
Ъ 218
Ы 219
Ь 220
Э 221
Ю 222
Я 223
а 224
б 225
в 226
г 227
д 228
е 229
ё 184
ж 230
з 231
и 232
й 233
к 234
л 235
м 236
н 237
о 238
п 239
р 240
с 241
т 242
у 243
ф 244
х 245
ц 246
ч 247
ш 248
щ 249
ъ 250
ы 251
ь 252
э 253
ю 254
я 255