Cümə axşamı, 26.12.2024, 22:27
İ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: 2
    Ziyarətçilərin sayı: 2
    Qeydiyyatdan keçənlərin sayı: 0


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

    Дано натуральное четырехзначное число. Определить, является ли оно палиндромом. Заметим, что целое число является палиндромом, если оно читается одинаково слева направо и справа налево. Например число 2332 является палиндромом.

     

    Если четырехзначное число является палиндромом, то первая цифра (слева) равна четвертой, а вторая равна третьей.

    Поэтому алгоритм: выделяем все цифры числа. Затем проверяем равенство первой цифры четвертой и второй – третьей. Если равенство выполняется, то данное число – палиндром.

     

    Program A1_5;

    var

    n,a,b,c,d: 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 (a=d) and (b=c)

       then writeln ('YES')

       else writeln ('NO');

     readln;

    end.

    //Program A1.5

    #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==d  &&  b==c) 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ış