Advertisement
Qpel

Rasti visus 4-klius sveikus skaičius-analgamas, kurių skaitm

Nov 28th, 2018
445
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Java 1.11 KB | None | 0 0
  1. package laboraii;
  2.  
  3. /*
  4.  *
  5.  * 1.   Rasti visus 4-klius sveikus skaičius-analgamas, kurių skaitmenų sandauga yra pirminė? Skaičius vadinamas analgama, jei jis sutampa su savo atvirkštiniu.
  6.  *
  7.  *
  8.  *
  9.  *
  10.  */
  11. import java.io.*;
  12. public class Klaviatura{
  13.  
  14.     public static void main(String[] args) throws IOException {
  15.  
  16.                          BufferedReader iv = new BufferedReader(new InputStreamReader(System.in));
  17.  
  18.  
  19.  
  20.                          //System.out.print("Ivesk skaiciu keturzenkli:");
  21.  
  22.                          //int n = Integer.parseInt(iv.readLine());
  23.  
  24.            int a,b,c,d,e,f;
  25.  
  26. for(int n=1000; n<9999; n++) {
  27.     c=(n/1000)%10;
  28.     d=(n/100)%10;
  29.     e=(n/10)%10;
  30.     f=n%10;
  31.     if(n==(f*1000+e*100+d*10+c)) {
  32.         System.out.print("\n");
  33.     System.out.print(f*1000+e*100+d*10+c);
  34.    
  35.     int dalikliuKiekis=0, dalikliuSuma=0;
  36.     for (int i=1; i < n; i++)
  37.     {
  38.             if (n % i == 0)
  39.             {
  40.                     dalikliuKiekis++;
  41.                     dalikliuSuma=dalikliuSuma + i;
  42.             }
  43.     }
  44.     if (dalikliuKiekis < 2) { System.out.print(" - pirminis");}
  45.     }
  46.  
  47. }
  48.  
  49.  
  50. }
  51. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement