Выделение слов из текста с определенным количеством букв - Pascal ABC
Формулировка задачи:
Помогите, пожалуйста.
Нужно найти в тексте слова, которые содержат более чем заданное пользователем количество букв, и выделить другим цветом в исходном тексте.
Что здесь не так? Почему не работает?
Решение задачи: «Выделение слов из текста с определенным количеством букв»
textual
Листинг программы
program k; uses crt; var s, q, r:string; n, i:integer; begin clrscr; Textcolor (DarkGray); writeln ('Введите количество букв'); readln (n); writeln ('Введите текст'); readln (s); s:=s+' '; i:=1; while i<>0 do begin i:=Pos (' ', s); q:=Copy(s,1, i-1); Delete(s, 1, i); r:=q; if length(q)>n then Textcolor (6); write (r,' '); Textcolor (DarkGray); end; Readkey; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д