Інформатика9клас.Наступне число Прочитати ціле число та вивести наступне за ним число. Вхідні дані Одне ціле число n, що за модулем не більше 1018 Вихідні дані Вивести число на одиницю більше.
Function prime(x:integer):boolean; var t:boolean; d:integer; begin t := true; d := 2; while t and (d*d <= x) do begin if x mod d = 0 then t := false; d := d + 1 end; prime := t end;
function order(x:integer):boolean; var t:boolean; d:integer; begin d := -1; repeat t := x mod 10 > d; d := x mod 10; x := x div 10 until not t or (x = 0); order := t end;
var t:boolean; i,k,n:integer; begin t := false; read(k,n); for i := k to n do if prime(i) then if order(i) then begin write(i,' '); t := true end; if not t then write(0) end.
I. Сымсыз желілер түсінігі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...5
ІІ. Wi.Fi технологиясы
2.1. Архитектурасы, желі компоненттері және стандарттар ... ... ... ... ... ... ... 9
2.2. Желіні ұйымдастыру ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...14
2.3. Wi.Fi желісінің қауіпсіздігі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 19
ІІI. WiMax технологиясы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...23
ҚОРЫТЫНДЫ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...27
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...28
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.