Question

Напишите программу, которая определяет, верно ли, что введённое число -– трёхзначное. паскаль

Answer 1

var

x,y,z:integer;

begin

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

if (x < 1000) and (x >= 100) or (x > -1000) and (x <= -100) then

  writeln('Трехзначное');

end.

Answer 2

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

pascalCopy code
program CheckThreeDigitNumber;

var
  number: integer;

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

  if (number >= 100) and (number <= 999) then
    writeln('Введенное число является трехзначным.')
  else
    writeln('Введенное число не является трехзначным.');

  readln; // Чтобы программа не закрывалась сразу после выполнения
end.

Этот код попросит пользователя ввести число и затем проверит, находится ли оно в диапазоне от 100 до 999 включительно. Если число соответствует этому условию, программа выведет сообщение "Введенное число является трехзначным.", в противном случае выведет "Введенное число не является трехзначным."