Cümə axşamı, 08.12.2016, 09:01
İ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ı: 6161
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 2016  »
    B.e.Ç.a.ÇC.a.CŞB
       1234
    567891011
    12131415161718
    19202122232425
    262728293031
    Təqdimatlar
    Saat
    Statistika

    Onlayn: 17
    Ziyarətçilərin sayı: 17
    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 © 2016
    PYTHON 3.4
    ALPLogo
    Elan
    Fəxr edirik


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