==============================
AKS-Test.
==============================
Обычно, когда проводят тест на простоту сталкиваются с тем, что определить простоту числа в большинстве тестов можно лишь с некоторой вероятностью.
Но математика не стоит на месте и сравнительно недавно появился AKS-тест, позволяющий быстро и гарантированно определить, является ли число простым.
Суть метода такова. Пусть число, которое мы тестируем обозначается A. У нас есть такое выражение: . Если раскрыть скобки и привести это дело к многочлену вида и все коофиценты k в этом многочлене делятся на A без остатка, то число А - простое. Без вариантов.
Блок-схема с числом n представлена на рисунке 1.
В цикле: . (! - факториал)
P.S. В блок-схеме есть элемент вида (А). Он использовался для связи, так как места на стрелку справа не оказалось. Можешь их убрать и соединить освободившиеся места стрелкой.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>
Я отвечу своими словами. Действие объекта - это, что может делать сам объект или что могут делать с данным объектом. Для характеристики объекта совершенно не важно, сам объект выполняет действие или он испытывает воздействие со стороны другого объекта. Дейтсвие, применяемое к объекту, приравнивается к действию, выполняемому объектом.<span>Что бы описать дейтсвие объекта, мы должны ответить на вопрос "Что он может делать?"</span>
1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
350*200=70000 пикселей
65Кбайт=65*1024=66560 байт=66560*8=532480бит
532480/70000= 7.6 т.е 7 целых бит на пиксель
с помощью 7 бит можно закодировать 2^7=128 цветов