<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (p,q,s):=(1,2,0);
var k:=0;
Write('(1,5) ');
for var i:=3 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,s):=(q,s,i);
if q-p=4 then Write('(',p,',',q,') ')
else
if s-p=4 then Write('(',p,',',s,') ')
end
end
end.
<u>Результат</u>
(1,5) (3,7) (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)
Стандартно отрицательные числа хранятся в памяти в дополнительном коде.
-3464 = -(2048 + 1024 + 256 + 128 + 8) = -(2^11 + 2^10 + 2^8 + 2^7 + 2^3) = 1|000 1101 1000 1000 (в прямом коде) = 1|111 0010 0111 0111 (в обратном коде) + 1 = 1|111 0010 0111 1000 (в дополнителтном коде)
1) Щелчке правой кнопки мыши по экрану рабочего стола.
2) Наведите курсор на слово "создать", в всплывающем окне.
3) Щелкните на "папку" (левая кнопка мыши).
4) Создаться папка "новая папка."
5) Введите название папки.
6) Нажмите enter.
7) Откройте "мой компьютер" (пуск, мой компьютер).
8) Сделайте "мой компьютер" на пол экрана (вверху справа)
9) Перетащите папку в диск С.