Program n1; function isprost(x: integer): boolean; var i: integer; begin if x<2 then isprost:=false else begin isprost:=true; for i := 2 to round(sqrt(x)) do if x mod i = 0 then isprost:=false; end; end; function islow(x: integer): boolean; var n1,n2: integer; begin islow:=false; n2:=x mod 10; x:=x div 10; n1:=x mod 10; x:=x div 10; while (n1>n2) and (x<>0) do begin n2:=n1; n1:=x mod 10; x:=x div 10; end; if n1>n2 then islow:=true; end; var k,n,i,f: integer; begin readln(k,n); f:=-1; for i:=k to n do if isprost(i) and islow(i) then begin write(i,' '); f:=1; end; if f=-1 then write(0); end.
// PascalABC.NET 3.3, сборка 1605 от 31.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var mc:=ReadlnString('Введите число из трех цифр:').ToCharArray; var s:=''; foreach var a in mc do foreach var b in mc do foreach var c in mc do s+=a+b+c+' '; s.ToIntegers.Where(t->t>99).Distinct.OrderBy(t->t).Println end.
Сообщение содержит 131072 символов.
Объяснение:
Дано:
N = 256 симв.
I = 1/16*1 Мб
Найти: K.
I = 1/16 * 1 Мбайт = 1/16 * 8388608 Бит = 524288 Бит
N = 2^i. 2^i = 16; i = 4 Бит
I = K * i => K = I / i. K = 524288 Бит / 4 Бит = 131072 симв.
ответ: K = 131072 символов.