|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.01.2010, 16:46 | #1 |
Пользователь
Регистрация: 30.01.2010
Сообщений: 26
|
убрать лишнее из программы
uses crt;
var n,q,num:integer; s,w:string; i:integer; begin clrscr; write(' -> '); readln(s); w:=''; s:=s+' '; i:=1; n:=0; q:=0; num:=0; repeat if s[i]<>' ' then w:=w+s[i] else if w<>'' then begin inc(num); if w[1]='a' then inc(n); if pos('d',w)<>0 then inc(q); w:=''; end; i:=i+1; until i>length(s); writeln(' Количество слов в строке ',num); writeln(' Количество слов начинающихся на букву а ',n); writeln(' Количество слов имеющих хоть одну букву d ',q); readln; end. было вот такое задание Дана строка символов.Группы символов в ней между группами пробелов считаются словами .Подсчитать сколько слов: а)Содержит данная строка б)начинающихся на букву "а" в)содержат хотя бы одну букву "d" теперь надо убрать лишнее и сделать так чтобы программа только считала колличество слов в строке |
30.01.2010, 17:10 | #2 | |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Цитата:
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
|
30.01.2010, 17:33 | #3 |
Пользователь
Регистрация: 30.01.2010
Сообщений: 26
|
Спасибо за помощь
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как убрать программы из списка выбора программ | evgenii0494 | Операционные системы общие вопросы | 8 | 15.02.2010 20:35 |
Убрать лишнее из ячейки. | `Dmitry | Microsoft Office Excel | 8 | 24.03.2009 19:07 |
убрать заголовок программы. | kuzmich | Общие вопросы Delphi | 4 | 26.11.2008 15:41 |
Убрать признаки работы программы | В_И_К_Т_О_Р | Помощь студентам | 1 | 01.02.2008 23:02 |
Убрать из uses | Маркъ | Общие вопросы Delphi | 3 | 03.02.2007 11:44 |