Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

С клавиатуру вводится строка. Определить в ней количество пробелов

Ответ оставил Гость

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.