Переведите число 65 из 10-й системы счисления в 8-ую систему счисления 1.71

2.81

3.101

Question

Информатика: Переведите число 65 из 10-й системы счисления в 8-ую систему счисления 1.71 2.81 3.101​

lizochkanaumov1 · Accepted Answer

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

begin
var (p,q):=(1,0);
for var i:=1 to 1000 do begin
    var (flag,j,r):=(True,2,Round(Sqrt(i)));
    while flag and (j<=r) do
      if i mod j = 0 then flag:=false
      else j+=1;
    if flag then begin
      (p,q):=(q,i);
      if q-p=4 then Write('(',p,',',q,') ')
      end
    end
end.

Результат
(7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)

Переведите число 65 из 10-й системы счисления в 8-ую систему счисления 1.712.813.101​

MOGZ ответил

Переведите число 65 из 10-й системы счисления в 8-ую систему счисления 1.71

2.81

3.101