Var
a,b,c:integer;
begin
writeln("в каком году был основан город Минск ?");
writeln("<span>в 1067 году, в 1993 году, в 1147 году. В ответе просто число.</span>");
readln(a);
if a = 1067 then writeln("верно")
else writeln("Ошибка")
Ответ на Ваш вопрос простой: никак!
В языке Паскаль есть так называемый диапазонный тип. Он реализуется, как "вырезка" части диапазона базового типа. Например, если базовый тип целочисленный, можно вырезать из него числа в диазахоне "от" и "до".
Например, описание k: -10..10 означает, что k целочисленное и может изменять от -10 до 10. Целочисленное оно потому, что константы -10 и 10 в PascalABC.NET имеют тип integer. Проблема же состоит в том, что в PascalABC.NET контроль за выходом значения переменной за отведенные границы всего лишь... отсутствует! Т.е. описание k: -10..10 - это просто "хотелка". И Вы можете продолжать этого хотеть. Может быть, Вы подумали, что это PascalABC.NET такой плохой язык? Спешу разочаровать: так ведут себя все диалекты Паскаля. Дело в том. что проверка границ диапазона фактически должна делаться при каждой машинной операции с участием переменной диапазонного типа. И это настолько замедляет программу, что такая проверка, даже если она предусмотрена в конкретном компиляторе, по умолчанию выключена. Более того, оказывается, что гораздо проще проверять выход за границы диапазона напрямую в программе!
Что касается переменной типа real - с ней еще хуже: ее даже нельзя объявить в диапазонном типе, поскольку тип real не является порядковым.
Как итог: проверяем if (k>=-10) and (k<=10) then <все хорошо>.
Можно воспользоваться вариантом if k.Between(-10,10) then ...
Between работает и с real: if r.Between(3.4,15.063) then ...
Записи на бумаге
запись на жесткий диск
вроде так
Разрешающая способность 200 dpi означает, что на отрезке длиной 1 дюйм сканер различит 200 точек.
Необходимо перевести разрешающую способность в точки на сантиметр (1 дюйм=2,54см):
200 dpi/2.54=79точек/см
Следовательно, размер изображения в точках будет 1659*2291 точек
Общее количество точек равно 1659*2291=3800769
Объем рисунка равен 16*3800769=60812304бит=7601538байт=7423 Кб=7,2Мб