Строка символов. Выяснить верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь”

@saaa · Регистрация: 23.05.2012

Студворк — интернет-сервис помощи студентам

В файле «input.txt» дана строка символов. Выяснить верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь”. Ответ записать в файл

@Мaкc · 24.05.2012, 20:41

Pascal

program ch1;
uses crt;
var c,i,k,l,o,p:integer;
    f:text;
   s:string;
begin
 clrscr;
 k:=0;
 l:=0;
 o:=0;
 p:=0;
 Assign(f,'input.txt');
 Reset(f);
 Read(F,s);
c:=length(s);
for i:=1 to c do
if (s[i]='m') then
inc(k);
for i:=1 to c do
if (s[i]='i') then
inc(l);
for i:=1 to c do
if (s[i]='s') then
inc(o);
for i:=1 to c do
if (s[i]='h') then
inc(p);
if (k=1) and (l=1) and (o=1) and (p=1) then
begin
assign(f,'otvet.txt');
rewrite(F);
writeln(f,'Yes');
close(F);
end
else
writeln('No');
readln
end.

В файл Input надо вписать символы, если недостаточно, то выводит на экран что не хватает, если хватает то в файл otvet выводит что лдостаточно. Файлы хранить вместе с исходником))
Смотрите)

@saaa · 24.05.2012, 20:43 **[ТС]**

Спасибо

@saaa 1 / 1 / 0 Регистрация: 23.05.2012 Сообщений: 37
		1
	Строка символов. Выяснить верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь” 24.05.2012, 19:56. Показов 2191. Ответов 2 Метки нет (Все метки) В файле «input.txt» дана строка символов. Выяснить верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь”. Ответ записать в файл 0

@saaa 1 / 1 / 0 Регистрация: 23.05.2012 Сообщений: 37
	24.05.2012, 20:43 [ТС]	3
	Спасибо 0

Опции темы

Строка символов. Выяснить верно ли, что среди символов этой строки имеются все буквы, входящие в слово “мышь”

Решение