Выводит странные числа (язык Паскаль)
program JoJo;
var d,a,b,c:real;
begin
writeln ('введите a,b,c');
read (a,b,c);
d:=sqr(b)-4*a*c;
writeln ('дискриминант=', d);
end.

Снег рог ручка река речка

Один символ: 8 = 2^3 = 3 бит
64 символа: 3 * 64 = 192 бит

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен", Приём ИЗ "...ОтделыОбмен";

ПЕР
  число, чётных, сумцифр, цифра: ЦЕЛ;

УКАЗ
  число := Приём.Число();
  чётных := 0; сумцифр := 0;
  ПОКА число > 0 ВЫП
    цифра := число ОСТАТОК 10;
    ЕСЛИ ЧЕТ(цифра) ТО УВЕЛИЧИТЬ(чётных) КОН;
    УВЕЛИЧИТЬ(сумцифр, цифра) КОН;
    число := ЧИСЛО ДЕЛИТЬ 10
  КОН;
  Вывод.ЧЦел("^%d %d", чётных, сумцифр, 0, 0)

КОН Задание.