Определите, являются ли два первых символа файла цифрами. - Паскаль, Turbo Pascal, PascalABC.NET

Vad1k · 07.12.2012, 15:30

Дан символьный файл f, содержащий не менее двух компонентов. Определите, являются ли два первых символа файла цифрами. Если ответ - "да", то установите, является ли число, составленное из этих цифр, чётным. (Pascal ABC)

Mad_Cat · 07.12.2012, 15:44

Код:

reset(f);
read(f,s);
if (s[1] in ['0'..'9'] )and (s[2] in ['0'..'9']) and (s[2] in ['0','2','4','6','8']) then writeln('yes')
else writeln(No);
close(f);

Vad1k · 07.12.2012, 15:50

Цитата:

Сообщение от Mad_Cat

Код:

reset(f);
read(f,s);
if (s[1] in ['0'..'9'] )and (s[2] in ['0'..'9']) and (s[2] in ['0','2','4','6','8']) then writeln('yes')
else writeln(No);
close(f);

а можете написать код этой программы полностью, а то я не знаю как это сделать сам((

JIeIIIa · 07.12.2012, 16:19

Могу этой и не только этой. Если будут собственные наработки - помогу так, нет - материально. Пишите (возможно договоримся): stealth(собака)bigmir.net

07.12.2012, 15:30	#1
Vad1k Регистрация: 07.12.2012 Сообщений: 5	Определите, являются ли два первых символа файла цифрами. Дан символьный файл f, содержащий не менее двух компонентов. Определите, являются ли два первых символа файла цифрами. Если ответ - "да", то установите, является ли число, составленное из этих цифр, чётным. (Pascal ABC) Последний раз редактировалось Vad1k; 07.12.2012 в 15:44.

07.12.2012, 15:44	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `reset(f); read(f,s); if (s[1] in ['0'..'9'] )and (s[2] in ['0'..'9']) and (s[2] in ['0','2','4','6','8']) then writeln('yes') else writeln(No); close(f);` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как изменить два последних символа строки в delphi ?	adaptive person	Общие вопросы Delphi	2	24.03.2012 20:35
Дан символьный файл f. Определить, являются ли два первых символа файла цифрами (Pascal)	vesdesvet	Помощь студентам	2	25.11.2011 11:44
Взять два предпоследних символа строки Memo	Marsel737	Общие вопросы Delphi	2	08.01.2010 19:18
Узнать два последних символа в строке	Kib	Общие вопросы Delphi	5	19.04.2009 23:04
Два XL файла, данные 1-го файла являются частью другого в формуле 2-го	Кот	Microsoft Office Excel	2	14.08.2007 16:56

07.12.2012, 16:19	#4
JIeIIIa Пользователь Регистрация: 21.12.2011 Сообщений: 54	Могу этой и не только этой. Если будут собственные наработки - помогу так, нет - материально. Пишите (возможно договоримся): stealth(собака)bigmir.net