Bazar ertəsi, 27.03.2017, 11:33
İnformatikanın məktəbdə tədrisi
Baş səhifə Qeydiyyat Giriş
e-mail: informatik-az@mail.ru · RSS
Menyu
Fotoşəkillər
Giriş forması
Sorğu
Müəllim kimi informatika dərslərində tez-tez istifadə edirəm:
Cavabların sayı: 6448
Faydalı keçidlər

  • ict.edu.az
  • ict.az
  • telekommunikasiya.edu.az
  • İnf-math.narod.ru
  • Millibyte.az
  • kayzen.az/blog/informatika
  • alqoritm.ucoz.org
  • mincom.gov.az
  • Facebook-da
    Təqvim
    «  Mart 2017  »
    B.e.Ç.a.ÇC.a.CŞB
      12345
    6789101112
    13141516171819
    20212223242526
    2728293031
    Təqdimatlar
    Saat
    Statistika

    Onlayn: 15
    Ziyarətçilərin sayı: 15
    Qeydiyyatdan keçənlərin sayı: 0


     З-8

    Задачи на целые числа без использования цикла


    Дано четырехзначное целое положительное число. Определить делится ли это число на все свои цифры.

     Проверять, делится ли число на какую либо свою цифру, можно только в случае, если эта цифра не равна 0. И в программе только при условии что ни одна из цифр числа не равна 0 и число делится на все свои цифры выводим слово "YES”.

     

    Program A1_8;

    var

    a,b,c,d,n:integer;

    begin

     readln(n);

     a:=n mod 10;

     b:=(n div 10) mod 10;

     c:=(n div 100) mod 10;

     d:=(n div 1000) mod 10;

        if (d<>0)and(c<>0)and(b<>0)and(a<>0)

        and(n mod a=0) and (n mod b=0) and

           (n mod c=0) and (n mod d=0)

           then writeln('YES')

           else writeln('NO');

     readln;

    end.

    //Program A1.8

    #include <iostream>

     using namespace std;

     int main()

    {int n,a,b,c,d;

        cin>>n;

        a=n%10;

        b=(n/10)%10;

        c=(n/100)%10;

        d=(n/1000)%10;

        if(a!=0 && b!=0 && c!=0 && d!=0 &&

            n%a==0 && n%b==0 && n%c==0 &&  n%d==0)

                 cout << "YES\n" ;

         else cout<<"NO\n";

        return 0;

    }

     


    Copyright İsaNaida © 2017
    PYTHON 3.4
    ALPLogo
    Elan
    Fəxr edirik


    Bölmələr
    MÜSABİQƏ
    Azərbaycanda İKT
    Axtarış
    Video
    Info-Ko