Şənbə, 27.07.2024, 06:14
İ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ı: 9419
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
    «  İyul 2024  »
    B.e.Ç.a.ÇC.a.CŞB
    1234567
    891011121314
    15161718192021
    22232425262728
    293031
    Təqdimatlar
    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 © 2024
    PYTHON 3.4
    ALPLogo
    Info-Ko
    Fəxr edirik


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