Составить программу которая...

Тема в разделе "Информатика", создана пользователем !MAKSIMUSi, 15 мар 2010.

  1. !MAKSIMUSi

    !MAKSIMUSi New Member

    Составить программу которая определяет количество цифр во введенном с клавиатуры целомчисле
    решите пж способом для 10 класса
     
    !MAKSIMUSi, 15 мар 2010
    #1
  2. BYFLY

    BYFLY New Member

     VB.
    Dim n As Integer    
    n = InputBox("Введите число:") 
    MsgBox("В числе " & Len(CStr(n)) & " цифр.")

    Pascal.

    Program N;
    Var
      I, S, N : Longint;
    Begin
      Writeln('Введите число'); Readln(I);
      N:=1;
         While I > 10 DO
            BEGIN
               I:=I DIV 10;
               Inc(N);
           end;
    // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
    Write('"В числе цифр " = ',N);
    Readln; end.

    Помог? Жми Лучший!
     
    BYFLY, 15 мар 2010
    #2

Поделиться этой страницей

Наша группа