Çərşənbə axşamı, 06.12.2016, 22:49
İ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ı: 6157
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: 7
    Ziyarətçilərin sayı: 7
    Qeydiyyatdan keçənlərin sayı: 0


     2-2r

    2.1                Дано натуральное число N. Найти сумму и произведение цифр этого числа.

     

    В цикле while выделяются по одному цифры числа, начиная с самой левой цифры. Выделенную цифру добавляем к сумме и умножаем на произведение предыдущих цифр. Затем из числа удаляем использованную цифру. Эти действия будем производить до тех пор, пока в числе имеются цифры.

    Примечание;  Не забыть в начале программы выполнить s:=0;  p:=1;

     

    Program A2_2;

    Var

      n,q,s,p:integer;

      begin

        readln(n);

        s:=0;  p:=1;

        while (n<>0) do

          begin

            q:= n mod 10;

            s:= s + q;

            p:= p*q;

            n:= n div 10;

          end;

        writeln(s,' ',p);

        readln;

      end.

    // Program A2.2;

    #include <iostream>

     

    using namespace std;

     

    int main()

    {

        int n,q,s=0,p=1;

        cin>>n;

        while (n!=0)

        {

         q=n%10;

         s=s+q;

         p=p*q;

         n/=10;         //n=n/10;

        }

        cout<<s<<" "<<p<<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