Университет XXI века: научное измерение

Физика, математика и информатика 279 (318, 628, 650) (290, 414, 656) (544, 680, 696) (260, 510, 730) S (654, 772, 818) (680, 850, 870) (312, 612, 876) S (466, 510, 884) (762, 786, 948) (554, 892, 954) Буквой S отмечены целочисленные треугольники, у которых площадь и 2 медианы – целые числа, у остальных треугольников все медианы – целые числа. Программа в среде Windows 10 – DOSBox – D-Fend Reloded на языке Borland Pascal 7.01проводит вычисления на компьютере средней мощности бо- лее суток. Время вычислений можно несколько уменьшить, если воспользо- ваться специализированными математическими пакетами типа Wolfram Mathematica или Maplesoft Maple. Приводим текст программы: uses crt; var a, b, c, sch : longint; p, s, ma, mb, mc : real; begin for c:=316 to 348 do for b:=1 to c do for a:=c-b+1 to b do begin sch:=0; p:=(a+b+c)/2; s:=sqrt (p*(p-a)*(p-b)*(p-c)); if abs (s-round(s))<0.000001 then sch:=sch+1; ma:=(sqrt (2*b*b+2*c*c-a*a))/2; if abs (ma-round(ma))<0.000001 then sch:=sch+1; mb:=(sqrt (2*a*a+2*c*c-b*b))/2; if abs (mb-round(mb))<0.000001 then sch:=sch+1; mc:=(sqrt (2*b*b+2*a*a-c*c))/2; if abs (mc-round(mc))<0.000001 then sch:=sch+1; if sch>2 then begin writeln; write (sch); write (' '); write (a); write (' '); write (b); write (' '); write (c); write (' '); write (s); write (' '); write (ma); write (' '); write (mb);