Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
составить блок схему 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