Задана строка. Подсчитать, сколько пробелов в строке. Паскаль.Спасибо.
Задана строка. Подсчитать, сколько пробелов в строке. Паскаль.
Спасибо.
Гость
Ответ(ы) на вопрос:
Гостьprogram E07;
uses crt;
var
S: string;
i,k: integer;
begin
clrscr;
writeln('Введите строку: ');
readln(S);
K:=0;
for i:=1 to length(S) do
if S[i] = ' ' then
K:=K+1;
writeln('В строке ',K:2,' пробелов!');
end.
Не нашли ответ?
Похожие вопросы