Помогите решить на языке ПАСКАЛЬ.Дана строка символов.Определить количество слов.

2

Ответы и объяснения

2012-12-23T12:19:02+04:00

var q: text;
f: string;
a,b: integer;
begin
Assign(q,'C://textin.txt');
Reset(q);
read(q,f);
close(q);
for a:=1 to Length(f) do
begin
if f[a]=' ' then
b:=b+1;
end;
a:=0;
b:=b+1;
assign(q,'C://textout.txt');
rewrite(q);
write(q,b);
close(q);
end.

 

сдесь строки берутся и записываются в файлы

  • Kitsu
  • почетный грамотей
2012-12-23T13:22:10+04:00

var a:string;

i:integer;

begin

readln(a);

i:=1;

while pos(' ',a)<>0 do begin

inc(i);

delete(a,pos(' ',a),1);

end;

writeln(i);

end.