Question

Сөйлем берілген осы сөйлемдегі бос орындар санын анықтайтын программа құрыныз.

Answer 1

var s:sttring;
i,k:integer;
begin
read(s); k:=0;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;

write('k= ', k);
end.

Answer 2

Е амиго паскальды ұмыт болыпты.
типті string деп алып,
айнымалыны length операторы арқылы басынан соңына дейін санап шығып, сол санды пайдаланып егер сөйлемде " " (яғни пробел саны) барын шарт қойып есептеп, оған +1 жасау керек, себебеі үш сөзі бар сөйлемде екі пробел, төрт сөзі бар сөйлемде 3 пробел болады екен