Организация процедур: определить, является ли число четырехзначным - Паскаль, Turbo Pascal, PascalABC.NET - Страница 2

Stilet · 18.01.2013, 22:25

Цитата:

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

Ах вот оно что

Код:

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

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

Sciv · 18.01.2013, 22:28

Цитата:

Ах вот оно что

Ура-Ура! Новый конкурс!

Poma][a · 18.01.2013, 22:33

2Stilet тыц

Аватар · 18.01.2013, 22:58

Так еще не было?

Код:

Str(num,s); 
if Length(s)=4 then WriteLn('Четырехзначное') else writeln('Не четырехзначное');

Poma][a · 18.01.2013, 23:08

Интересно, если бы ТС убрал слово "натуральное", то как бы Вы "выкручивались"?
Abs'ом или что-то другое ?

Аватар · 18.01.2013, 23:17

А можно еще с десятичным логарифмом - целая часть=3 -> 4-значное число

Stilet · 18.01.2013, 23:26

Цитата:

Poma][a

Ты прав. Значит ограничение в 255 осталось. Видимо у меня в лазаре отключена проверка на размерность, иначе бы ругнулся.

Sciv · 18.01.2013, 23:56

Цитата:

Ты прав. Значит ограничение в 255 осталось.

А чего вы все в байт уперлись? Есть же еще урод... пардон, уорд.

UPD Сорри, понял к чему относилось замечание

18.01.2013, 22:58	#14
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Так еще не было? Код: `Str(num,s); if Length(s)=4 then WriteLn('Четырехзначное') else writeln('Не четырехзначное');` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

18.01.2013, 23:17	#16
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	А можно еще с десятичным логарифмом - целая часть=3 -> 4-значное число Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ввести число. Определить является ли оно степенью 2.	Roman1295	Паскаль, Turbo Pascal, PascalABC.NET	3	23.12.2012 11:50
Определить , является ли заданное число степенью тройки	dimanfanat	Помощь студентам	9	21.12.2012 16:10
С++ : Определить является ли число простым	harvey	Помощь студентам	1	02.10.2012 16:40
Определить, является ли число палиндромом	Princesse	JavaScript, Ajax	9	02.10.2009 00:23
Определить является ли данное число совершенным.. Паскаль.	Karabas	Помощь студентам	6	23.12.2008 21:53

18.01.2013, 22:33	#13
Poma][a Новичок Джуниор Регистрация: 11.10.2011 Сообщений: 3,882	2Stilet тыц

18.01.2013, 23:08	#15
Poma][a Новичок Джуниор Регистрация: 11.10.2011 Сообщений: 3,882	Интересно, если бы ТС убрал слово "натуральное", то как бы Вы "выкручивались"? Abs'ом или что-то другое ?