Составьте программу проверяющая является ли данное целое число четырехзначным числом. На экране должно быть сообщение число четырехзначное или число не четырехзначное. По паскалю.

Question

Азаргун

15 декабря, 00:24

+5

Ответы (1)

Знаешь ответ?

Иваха · Answer 1

begin

var n : = ReadInteger ('n = ');

Print (n. InRange (1000, 9999) ? '4-х значное' : 'не 4-х значное')

end.