![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
Geroi |
![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 29 Репутация: ![]() ![]() ![]() |
Вот она.......:
Код Program home_07; var text:char; b:boolean; Begin b:=False; Writeln('‚Ввести буквы '); Repeat Writeln('->'); Readln(text); if b=(text=('P')) or ((text=('a')) or ((text=('s')) or ((text=('c')) or (text=('a')) or (text=('l'))))) then b:=true; until text <>('.'); if b then Write('нету') else Write('есть'); end. где тут ошибка. она не работает правильно. |
![]() ![]() |
Ivs |
![]()
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 209 Репутация: ![]() ![]() ![]() |
Код program Pascal; uses crt; var s:string; i:integer; M : Set of char; b:boolean; begin ClrScr; write('Input String -> '); readln(s); M:=['P','a','s','c','a','l']; for i:=1 to length(s) do if s[i] in M then begin writeln('YES!');b:=true;break;end; if not(b) then write('No!'); readln; end. -------------------- Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|
![]() ![]() |
![]() |
Текстовая версия | 26.07.2025 18:24 |