<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)
Мы вступили в XXI век, в котором тот, кто владеет информацией, владеет миром. Это уже не фраза, а реальность. Развитие информационной культуры личности — важнейшая часть формирования общей культуры человека.
<span>В современных условиях информатизации общества происходит реформа системы непрерывного образования. Одной из важнейших задач этой реформы является развитие интеллектуальной и информационной культуры личности как составной части общей культуры.
</span>Информационная культура<span> личности подразумевает совокупность особых интеллектуальных свойств и способностей -в частности, способностей к абстрагированию и обобщению, к смене направленности мыслительного процесса, к выделению существенных признаков, их фиксации в памяти, использование данной информации при необходимости, а также способности мыслить «свернутыми структурами»
</span><span>Таким образом, информационная культура личности оказывается тесно связана с культурой интеллектуального труда.</span><span>Формирование умений и навыков работы с информацией, включение их в ценностную систему личности требует индивидуального подхода к каждому потребителю информации, связи обучения с конкретными информационными проблемами индивида.</span>
107/2(остаток 1)=53/2(остаток 1)=26/2(остаток 0)=13/2(остаток 1)=6/2(остаток 0)=3/2(остаток 1) 1=1101011
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
<u>Результат</u>
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7