Строки

[Svetlanka]

Строки

Дана строка символов, состоящая из нулей, единиц и пробелов. Группы нулей и единиц, разделенные пробелами (одним или несколькими) и не содержащие пробелы внутри себя, будем называть словами. Требуется подсчитать количество слов в данной строке. Рассматривая слова как числа, определить количество слов, делящихся на 5 без остатка.

 

[shrek=)]

Примерно вот такое решение.

var
s,c:string;
dl,i,n,z,k:integer;
begin
n:=0;
k:=1;
writeln ('введите строку');
readln (s);
dl:=length(s);
i:=1;
while i<=dl do begin
if s[i]=' ' then begin
inc(k);
c:=copy(s,1,i-1);
while  s[i+1]=' ' do delete (s,i+1,i+1);
delete (s,1,i);
dl:=length(s);
i:=0;
z:=length(c);
if z>=3 then begin
c:=copy(c,z-2,z);
if (c='000') or (c='101') then inc(n);
end;
end;
inc(i);
if i=dl then begin
c:=copy(s,1,i);
z:=length(c);
c:=copy(c,z-2,z);
if (c='000') or (c='101') then inc(n);
end;
end;
writeln ('Всего количество слов ',k);
writeln ('Количество слов кратных 5 ',n);
readln
end.

 

[Vladimir_S]

Странно это, и неприятно до крайности. Ведь вроде бы уже эту задачу и решили, и обсудили: http://www.tehnari.ru/f43/t42100/ и на тебе снова-здорово! При таком отношении просто руки опускаются кому-то помогать.