Ответ(ы) на вопрос:
Гостьprogram aa;
var i,count:integer;
s : string;
begin
read(s);
count:= 0;
for i:=1 to length(s) do if s[i] = ' ' then count := count + 1;
write(count);
end.
Какой у вас компилятор?
Не нашли ответ?
Похожие вопросы