|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.05.2012, 19:52 | #1 |
Пользователь
Регистрация: 17.04.2012
Сообщений: 18
|
Составить блок схему.
Program slovo;
uses crt; var res,i: integer; s,t: string; begin clrscr; WriteLn('Введите предложение:'); ReadLn(s); s:=s+''; res:=0; For i:= 1 to length(s)do if(s[i] in ['a'..'z', 'A'..'Z']) then begin t:=t+s[i]; end else begin if(length(t)>0) then inc(res); t:=''; end; WriteLn('Число слов в предложении: ',res); end. |
21.05.2012, 20:05 | #2 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
составить блок схему | Alexsander20 | Помощь студентам | 5 | 29.03.2012 23:52 |
Составить блок схему | Ecethador | Помощь студентам | 1 | 04.02.2012 18:28 |
Составить блок схему( | dark999 | Помощь студентам | 3 | 17.03.2011 18:50 |
Составить блок-схему | Any13 | Помощь студентам | 0 | 17.05.2010 17:04 |
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! | ...Оленька... | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.01.2009 09:37 |