Определить, есть ли в строке все буквы, входящие в слово ′шина′

@PRIZRAK48 · Регистрация: 05.11.2012

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

Помогите пожалуйста с задачами!

№1.
Дана строка. Определить, есть ли в ней все буквы, входящие в слово ′шина′.

Заранее спасибо! =)

@HanDi · 05.11.2012, 21:57

1.

Delphi

var
 st: string;
 i, count: integer;
 bool: boolean;
begin
 bool:=false;
 count:=0;
 readln(st);
  for i:=1 to length(st) do
   begin
    if st[i] in ['ш', 'и', 'н', 'а'] then
     bool:=true;
    if st[i] = ' ' then
     inc(count);
   end;
  if bool=true then
   write('есть такие буквы!');
 writeln;
 write(count);
end.

@PRIZRAK48 0 / 0 / 0 Регистрация: 05.11.2012 Сообщений: 11
		1
	Определить, есть ли в строке все буквы, входящие в слово ′шина′ 05.11.2012, 21:48. Показов 1608. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с задачами! №1. Дана строка. Определить, есть ли в ней все буквы, входящие в слово ′шина′. Заранее спасибо! =) 0

Опции темы

Определить, есть ли в строке все буквы, входящие в слово ′шина′

Решение