TURBO PASCAL.Створити програму, яка визначає одноцифрове, двоцифрове чи трицифрове число введено з клавіатури.
Ответы
Вот простой пример программы на 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 - трехзначное. Если введено число, не входящее в указанные диапазоны, программа выведет сообщение об ошибке.
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.