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

Question

Информатика

Рина

5 ноября, 07:41

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

+4

Ответы (1)

Знаете ответ на вопрос?

Карл · Answer 1

Program n1;

var a: integer;

begin

readln (a) ;

case a of

1 ... 9: write ('однозначное') ;

10 ... 99: write ('двузначное') ;

100 ... 999: write ('трехзначное') ;

1000: write ('четырехзначное')

else write ('ошибка') ;

end;

end.