Меню сайта

Задача №14

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


program string_14-

var s:string-

k,i:integer-

begin

Write(‘введите строку ‘)-

Readln(s)-

i:=1-

repeat

if s[i]=’ ‘ then k:=k+1-

i:=i+1

until i=length(s)-

writeln(‘количество пробелов=’,k)-

readln-

end.

Категория: Строки | Дата: 17.01.13

Меню раздела
Блок