Вот простой пример программы на 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 - трехзначное. Если введено число, не входящее в указанные диапазоны, программа выведет сообщение об ошибке.
2 votes Thanks 1
abob334
Ось простий приклад програми 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.
abob334
Програма спочатку запитує у користувача число, а потім перевіряє діапазон за допомогою умовних операторів if-else. Якщо число знаходиться в діапазоні від 0 до 9, воно однозначне, від 10 до 99 - двозначне, від 100 до 999 - тризначне. Якщо введено число, яке не входить до вказаних діапазонів, програма виведе повідомлення про помилку.
nanasumonyk
ооо дякую, а то я тільки на поорвину рощібралась і не знала саме як ці діапазони написати
nanasumonyk
можеш ще одну програму написати? ну луже треба, а мені пишуть тільки як на пайтон
Answers & Comments
Вот простой пример программы на 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.