![]() |
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. где тут ошибка. она не работает правильно. |
![]() ![]() |
AlaRic |
![]()
Сообщение
#2
|
... ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: ![]() ![]() ![]() |
Вот моя версия, но с некоторыми символами какие-то глюки..не знаю почему
![]() Код Program home_07; uses wincrt; var text:char; b:boolean; i,n:integer; Begin trackcursor; writeln('кол-во символов'); readln(n); b:=False; for i:=1 to n do begin Writeln('‚Ввести буквы '); 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 else b:=false; if b=true then Write('нету') else Write('есть'); end; end. |
![]() ![]() |
![]() |
Текстовая версия | 23.06.2025 8:19 |