Question

TURBO PASCAL.Створити програму, яка визначає одноцифрове, двоцифрове чи трицифрове число введено з клавіатури. ​

Answer 1

Вот простой пример программы на Turbo Pascal, которая определяет количество цифр введенного числа:

program digits;

var

 num: integer;

begin

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

 readln(num);

 if (num >= 0) and (num <= 9) then

   writeln('Вы ввели однозначное число')

 else if (num >= 10) and (num <= 99) then

   writeln('Вы ввели двузначное число')

 else if (num >= 100) and (num <= 999) then

   writeln('Вы ввели трехзначное число')

 else

   writeln('Введено некорректное число');

 readln; // ожидание ввода перед закрытием окна

end.

Программа сначала запрашивает у пользователя число, а затем проверяет его диапазон с помощью условных операторов if-else. Если число находится в диапазоне от 0 до 9, то оно однозначное, от 10 до 99 - двузначное, от 100 до 999 - трехзначное. Если введено число, не входящее в указанные диапазоны, программа выведет сообщение об ошибке.

Answer 2

Ось приклад програми на Turbo Pascal, яка допоможе визначити, чи є введене число одноцифровим, двоцифровим або трицифровим:

pascalCopy code
program DigitCount;

var
  number: integer;

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

  if (number >= 0) and (number <= 9) then
    writeln('Ви ввели одноцифрове число.')
  else if (number >= 10) and (number <= 99) then
    writeln('Ви ввели двоцифрове число.')
  else if (number >= 100) and (number <= 999) then
    writeln('Ви ввели трицифрове число.')
  else
    writeln('Ви ввели число, яке не відповідає вимогам.');

  readln;
end.

Ця програма зчитує число з клавіатури і перевіряє його діапазон, щоб визначити, чи є воно одноцифровим, двоцифровим або трицифровим. Відповідно до результату перевірки, програма виводить відповідне повідомлення.