Cümə, 22.11.2024, 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ı: 9465
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
    «  Noyabr 2024  »
    B.e.Ç.a.ÇC.a.CŞB
        123
    45678910
    11121314151617
    18192021222324
    252627282930
    Təqdimatlar
    Statistika

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