Организация процедур: определить, является ли число четырехзначным

[Jalgas-xan]

дано натуральное число. верно ли, что это число четырехзначное???
please Help Me!!!

[DiemonStar]

а погуглить не судьба?

http://www.cyberforum.ru/pascal/thread15106.html

[Stilet]

if число>999 then верно else неверно.

[Poma][a]

а погуглить не судьба?

в приведенной Вами ссылке не заметил решения проблемы ТС

if число>999 then верно else неверно.

Данный алгоритм скажет что число 10000 является 4-ех значным, что неверно..


UPD Добавил нолик, спасибо!

Точняк.. Косякнул..

[BDA]

Poma][a, 1000 является 4-значным числом
Множества в паскале только для байта (от 0 до 255).

[Stilet]

Данный алгоритм скажет что число 10000 является 4-ех значным

Ну если его потом хакнуть то да. Скажет еще как
И даже докажет наличие зеленых человечков в правительстве.

По-моему тема - кросспост...

[Sciv]

Да можно и без строк вроде:

n:=num div 1000;
if (n>0) and (n<10) then WriteLn('Четырехзначное') else ('Не четырехзначное');

[eoln]

Да и делить незачем

if (num>999) and (num<10000) then WriteLn('Четырехзначное') else writeln('Не четырехзначное');

[Sciv]

Да и делить незачем

Да захотелось мне чей-то соригинальничать...

[Stilet]

захотелось мне чей-то соригинальничать...

Ах вот оно что

if num in [1000..9999] then WriteLn('Четырехзначное') else writeln('Не четырехзначное');

Freepascal по крайней мере пропускает.