Вопрос по информатике:
Открыть в паскале текстовый файл,в котором прописаны цифры от 0 до 9 и русские буквы, напечатать да если в запись строки входят все числа от 0 до 9 в противном случае напечатать нет
- 19.03.2018 17:02
- Информатика
- remove_red_eye 1753
- thumb_up 42
Ответы и объяснения 1
Var
f:text;
i,k:integer;
s,s1:string;
begin;
k:=0;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
read(f,s);
close(f);
for i:=0 to 9 do
begin;
str(i,s1);
if pos(s1,s)=0 then k:=1;
end;
if k=0 then write('Да') else write('Нет');
end.
- 21.03.2018 00:56
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.