Технический форум

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Строки (http://www.tehnari.ru/f43/t44155/)

Svetlanka

01.01.2011 22:27

Строки

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

shrek=)

10.01.2011 10:57

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

Код:

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

10.01.2011 11:02

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

Часовой пояс GMT +4, время: 08:36.