Cümə axşamı, 14.12.2017, 23:53
İ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ı: 6916
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
    «  Dekabr 2017  »
    B.e.Ç.a.ÇC.a.CŞB
        123
    45678910
    11121314151617
    18192021222324
    25262728293031
    Təqdimatlar
    Saat
    Statistika

    Onlayn: 1
    Ziyarətçilərin sayı: 1
    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