Question

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

Answer 1

var x:real;

begin

readln(x);

if (x<1000)and(x>100) then writeln('принадлежит') else writeln('не принадлежит');

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая определяет, принадлежит ли введенное число сотням:

pascalCopy code
program CheckHundreds;

var
  num: integer;

begin
  writeln('Введите число:');
  readln(num);
  
  if (num >= 100) and (num <= 999) then
    writeln('Число ', num, ' принадлежит сотням.')
  else
    writeln('Число ', num, ' не принадлежит сотням.');
end.

Программа запрашивает у пользователя ввод числа и затем проверяет, лежит ли введенное число в диапазоне от 100 до 999. Если да, то выводится сообщение о принадлежности к сотням, иначе выводится сообщение о том, что число не принадлежит сотням.