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


     2-7r
                Дано натуральное число N. Найти максимальную цифру в этом числе.

     Назовем переменную, в которой получим максимальную цифру – qmax. В начале присвоим этой переменной 0,  так как любая цифра в числе больше или равно 0. Будем выделять цифры в исходном числе по одному (строка 9) и сравнивать их с максимальной (qmax). Если очередная цифра будет больше максимальной – заменим максимальную на эту цифру (строка 10). В конце в переменной  qmax останется максимальное значение цифры исходного числа.

     

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    11

    12

    13

    14

    15

     

    Program A2_7;

    Var

      n,n1,q,qmax:integer;

      begin

        readln(n);

        n1:=n; qmax:=0;

        while(n1<>0) do

          begin

            q:=n1 mod 10;

           if (q>qmax) then qmax:=q;

           n1:=n1 div 10;

          end;

        writeln(qmax);

        readln;

       end.

    // Program A2.7;

    #include <iostream>

     

    using namespace std;

     

    int main()

    { int n,n1,q,qmax=0;

       cin>>n;

       n1=n;

       while(n1)

       { q=n1%10;

           if (q>qmax) qmax=q;

           n1=n1/10;

       }

       cout<<qmax<<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