10*650=6500 кб * 8= 52000 Кбит
В кодирове ASCII кждый символ кодируется 1 байтом.
4000 байт/128 = 31,25 Кбит
52000+31,25=52031,25 Кбит/8192≈6,35 Мб
t=J/v; t=52031,25 Кбит / 256 Кбит/с ≈ 203,25c
Программа:
var i,a,a1,a2,a3: integer;
begin
for i:=101 to 999 do
begin
a:=i*i;
a1:=a mod 1000 div 100;
a2:=a mod 100 div 10;
a3:=a mod 10;
if (a1=a2)and(a2=a3)and(a1<>0) then writeln(i,' ',a);
end;
end.
Результат:
462 213444
538 289444
962 925444