|
Платные хостинги
Раскрутка сайта
Книги по программированию
проверка на наличие конкретных символов, задача (программа) на языке Pascal
- Для каждого символа из одной строки (один символ вырезать сможешь?) вызвать функцию поиска этого символа в другой строке (сможешь?). Если хотя бы раз получен НЕ НОЛЬ - общий символ есть, иначе его нет.
- Код var s:string; b:boolean;begin readln(s); b:=(Pos('b',s) <> 0) and (Pos('e',s) <> 0) and (Pos('g',s) <> 0) and (Pos('i',s) <> 0) and (Pos('n', s) <> 0); if b then writeln('Есть') else writeln('Нет');end;highlightSyntax('delphijZhZTF','delphi'); Это сообщение отредактировал Pakshin A. S. - 9.12.2004, 22:11
- В целом правильно, но есть мелкая опечатка...Код b:boolean;highlightSyntax('delphimJjOTl','delphi'); Это сообщение отредактировал Zero - 9.12.2004, 19:05
- Немного ощибки в коде исправить и будет все ОК.
- еще один вариант...Код program Project2;{$APPTYPE CONSOLE}uses SysUtils;var str: string; s: set of char; i: integer; b: boolean;beginb:=false;readln(str);s:=['b','e','g','i','n'];for i:=1 to length(str) doif str[i] in s then b:=true;if b then writeln('yes')else writeln('no');readln; { TODO -oUser -cConsole Main : Insert code here }end.highlightSyntax('delphilYWZhM','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
