В настройках принтера задается размер области печати, он меньше размера бумаги и меньше физической области печати.
Заданная в настройках область меньше отправляемой на печать
Методы устранения
1) Изменить область печати в настройках, на пример уменьшить поля
2) Изменить масштаб документа и вписать его в область печати
3) Проигнорировать и отправить на печать, если отправлячемая область меньше физической, то документ распечатается нормально, иначе или будет обрезан или на нескольких листах
4) изменить форматирование документа, уменьшив область, отправляемую на печать.
var
count, min, max: integer;
str: string;
begin
min := 191;
max := 149;
readln(str);
while (str <> '!') do
begin
if (str.ToInteger in [150..190]) then
begin
if (str.ToInteger > max) then max := str.ToInteger
else if (str.ToInteger < min) then min := str.ToInteger;
count := count + 1;
end;
readln(str);
end;
writeln(count);
write(min, ' ', max);
end.
Простi та складнi.
Просте - на вулицi йде снiг
Складне - якщо на вулицi йде снiг, то на вулицi холодно