Çərşənbə, 04.12.2024, 12:35
İ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ı: 9475
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: 6
    Ziyarətçilərin sayı: 6
    Qeydiyyatdan keçənlərin sayı: 0


     2-9r
    Найти все трехзначные числа Амстронга- сумма кубов цифр которых равна самому числу. Например:     271 = 23 + 73 + 13 .

     Так как надо найти все трехзначные числа Амстронга, то надо перебрать все трехзначные числа и для каждого числа найти сумму кубов его цифр и сравнить с самим числом.

     


    Program A2_9;

    var

       i,a,b,c,s:integer;

     begin

       for i:=100 to 999  do  { перебор всех трехзн. чисел}

       begin

        a:=i mod 10;    {   выделение    }

       b:=(i div 10) mod 10;   {  цифр   }

       c:=i div 100;                   

      s:=a*a*a+b*b*b+c*c*c; {выч. суммы}

     if (s=i) then writeln(i); {сравнение }

         end;

        readln;

     end.


    // Program A2.9;

    #include <iostream>

     

    using namespace std;

     

    int main()

    {  int i,a,b,c,s;

        for (i=100;i<1000;i++)

        {  a=i%10;

            b=(i/10)%10;

            c=i/100;

            s=a*a*a+b*b*b+c*c*c;

            if (s==i) cout<<i<<endl;

        }

       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