Question

Паскаль. Напишите программу, которая просит ввести с клавиатуры натуральное число и выводит на экран, является ли число двузначным.

Answer 1

Var i: Integer;
begin
writeln('Введите число');
readln(i);
if (i>9) and (i<100) then writeln('Является') else
writeln('Не является');
end.

Answer 2

В Паскале это можно сделать следующим образом:

pascalCopy code
program CheckTwoDigitNumber;

var
  num: Integer;

begin
  writeln('Введите натуральное число:');
  readln(num);

  if (num >= 10) and (num <= 99) then
    writeln('Число является двузначным.')
  else
    writeln('Число не является двузначным.');

  readln;
end.

Пользователь будет приглашен ввести натуральное число, а затем программа проверит, является ли оно двузначным. Если число лежит в интервале от 10 до 99 включительно, то на экран будет выведено "Число является двузначным". В противном случае будет выведено "Число не является двузначным".