Напишите программу, которая выводит все простые числа, у которых цифры стоят строго в порядке убывания, в диапазоне от k до n ( 2 ≤ k ≤ n ≤ 100000 ). входные данные входная строка содержит два натуральных числа, разделённые пробелом, k и n ( 2 ≤ k ≤ n ≤ 100000 ). выходные данные программа должна вывести все простые числа, у которых цифры стоят строго в порядке убывания, в диапазоне от k до n в одну строку, разделив их пробелами. если таких чисел нет, нужно вывести число 0.

Class primes{   public static void main(string args[]){   boolean noprimes = true;   java.util.scanner in = new java.util.scanner(system.in);   searchprimes:   for(int k = in. n = in.nextint(); k> =n; {     for(int p = k/2; p> 1; (k%p==0)continue searchprimes;     system.out.print(k+" "); noprimes = false;   }   if(noprimes)system.out.println("0");   } }

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.

а если число

 

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

 

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

 

end.