Cümə axşamı, 26.12.2024, 22: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ı: 9496
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 2024  »
    B.e.Ç.a.ÇC.a.CŞB
          1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031
    Təqdimatlar
    Statistika

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


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

    Дано натуральное пятизначное число. Определить,  расположены, ли все цифры числа по возрастанию, начиная с самой  левой цифры. Например, в числе 15689 все цифры числа расположены по возрастанию.

     

    Выделяем все цифры числа – a,b,c,d,e. Проверяем условие (e<d)  и  (d<c)  и  (c<b) и  (b<a).

    Если условие выполняется, то все цифры расположены по возрастанию, иначе не все.

     

    Program A1_6;

    var

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

    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;

            e:=(n div 10000) mod 10;

            if (e<d)  and  (d<c)  and  (c<b)  and  (b<a)

             then writeln('YES')

             else writeln('NO');

            readln;

    end.

    //Program A1.6

    #include <iostream>

     

    using namespace std;

     

    int main()

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

        cin>>n;

        a=n%10;

        b=(n/10)%10;

        c=(n/100)%10;

        d=(n/1000)%10;

        e=(n/10000)%10;

        if(e<d  &&  d<c  &&  c<b  &&  b<a) 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ış