С клавиатуру вводится строка. Определить в ней количество пробелов
С клавиатуру вводится строка. Определить в ней количество пробелов
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
d:string;
begin;
b:=0;writeln('введите строку');
readln(d);
for a:=1 to length(d) do begin
if (d[a]=' ') then b:=b+1;end;
writeln('количество пробелов в строке ==> ', b);
end.
Гостьvar s:string;n,k:integer;
begin
s:= 'Проба она проходит первый раз и можем выполняться';// несколько раз';
n:=1;
while n>0 do begin
n:= pos(' ',s);k:=k +1;delete(s,1,n);end;
write(k-1);end.
Не нашли ответ?
Похожие вопросы