Question

Паскаль. Вообще нужна программа в которую например вводишь число 120 и она говорит это число трехзначное или например 90 это число двухзначное

Answer 1

Program dshvedkov;

var
  n,k:integer;

begin
  Write('n='); Read(n);
  k:=0;
  n:=Abs(n); // От минуса, иначе эта строка не нужна
  while n>0 do begin
    k:=k+1;
    n:=n div 10
    end;
  Writeln('Число ',k,'-значное')
end.

Пример
n=120
Число 3-значное

Answer 2

Для решения этой задачи в языке программирования Pascal, вам нужно запросить у пользователя число, затем проверить, сколько у него цифр, и вывести соответствующий ответ. Вот пример программы:

pascalCopy code
program CheckNumberDigits;

var
  num: Integer;

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

  if (num >= 0) and (num < 10) then
    writeln('Это число однозначное.')
  else if (num >= 10) and (num < 100) then
    writeln('Это число двузначное.')
  else if (num >= 100) and (num < 1000) then
    writeln('Это число трехзначное.')
  else
    writeln('Число содержит более трех цифр или отрицательное.');
end.

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