1) с клавиатуры введите целое число от 0 до 1000. 2) если число введённое (<0) или (>1000), вывести текст "Ошибка ввода" и конец. 3) если число (<10), вывести текст "Однозначное" если число (<1000) "трехзначное". ! Завтра нужно сдать, что бы в четверти было 4.
//Pascal
program number;
var
x : integer;
begin
write('Введите число: ');
readln(x);
if (x < 0) or (x> 1000) then
writeln('Ошибка ввода!')
else
if x < 10 then writeln('Число однозначное')
else if (x > 9) and (x < 100) then writeln('Число двузначное')
else writeln('Число трёхзначное');
end.