Консультация № 193585
23.09.2018, 16:11
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Составить в PascalABC программу нахождения количества слов в предложении. Предложение состоит из слов, разделённых одним пробелом. Предложение вводится с клавиатуры.

Обсуждение

давно
Старший Модератор
31795
6196
24.09.2018, 13:00
общий
это ответ
Здравствуйте, svrvsvrv!

Код в приложении:
[code lang=pascal]var
a:string;
b:integer;
begin
write('enter string:');
readln(a);
while pos(' ',a)>0 do
delete(a,pos(' ',a),1);
b:=0;
while pos(' ',a)>0 do
begin
delete(a,1,pos(' ',a));
inc(b);
end;
if length(a)>0 then inc(b);
writeln('result:=',b);
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа