Question

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

Answer 1

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.

Answer 2

Для создания программы на ABCPascal, которая определяет количество знаков в числе, вы можете использовать следующий код:

pascalCopy code
program NumberDigitsCounter;

var
  number: integer;

begin
  writeln('Введите число: ');
  readln(number);

  if (number >= 0) and (number < 10) then
    writeln('Число однозначное.')
  else if (number >= 10) and (number < 100) then
    writeln('Число двузначное.')
  else if (number >= 100) and (number < 1000) then
    writeln('Число трехзначное.')
  else if (number >= 1000) and (number < 10000) then
    writeln('Число четырехзначное.')
  else if (number >= 10000) and (number < 100000) then
    writeln('Число пятизначное.')
  else
    writeln('Число содержит более пяти знаков.');
end.

Обратите внимание, что в данном коде мы предполагаем, что число не является отрицательным и не превышает пять знаков. Вы можете адаптировать код, чтобы учитывать другие условия в зависимости от ваших потребностей.