Подсчитать количество слов в строке?
Ответы на вопрос
Ответил danilkonon
0
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.
Какой у вас компилятор?
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.
Какой у вас компилятор?
Ответил danilkonon
0
паскаль абц или турбик?
Ответил danilkonon
0
не важно.
Новые вопросы