Çərşənbə axşamı, 22.10.2024, 10:38
İ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ı: 9453
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
    «  Oktyabr 2024  »
    B.e.Ç.a.ÇC.a.CŞB
     123456
    78910111213
    14151617181920
    21222324252627
    28293031
    Təqdimatlar
    Statistika

    Onlayn: 6
    Ziyarətçilərin sayı: 6
    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 © 2024
    PYTHON 3.4
    ALPLogo
    Info-Ko
    Fəxr edirik


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