profile
Опубликовано 5 лет назад по предмету Информатика от vetkhin

Составить программу, которая определяет однозначные, двухзначные, трехзначные, четырехзначные или пятизначные
Язык: ABCPascal

  1. Ответ
    Ответ дан 2ReCKey

    var a,b:integer; {a-число, b-количество знаков числа}

    begin

    readln(a);

    while a<>0 do

     begin

       b:=b+1;

       a:=a div 10;

     end;

     writeln(b);

    end.