Определить функцию, позволяющую распознавать наличие вещественных корней в квадратном уравнение. делфи или паскаль

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   var hasreal: (real,real,real)-> boolean: =(a,b,c)-> b*b-4*a*c> =0;   writeln(hasreal(5.5,-3,4.2));   writeln(hasreal(1,-2,-6)) end. результат false true первая строка - определение функции hasreal, остальные две - примеры обращения к ней.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

v=24*640*480 = 7372800 бит.

737200: 8 =   байт.

921 600: 1024 = 900 кб

900: 1024 = 0,88 мб

2 мб : 0,88 мб = 2,28.

количество страниц : 2