cevap 2:

Delphi kodları


procedure Button1click....
var
kelime:string;
a,adet:integer;
begin
adet:=0;
kelime:=edit1.text;

for a:=0 to length(kelime) do
begin
if kelime[a]:#32 then
inc(adet);
end;

label1.Caption:=inttostr(adet)+' Adet Boşluk Vardır';

end;

hangi program ile istediğini yazmayınca bu saatte ancak delphi kodları geldi aklıma
editbox tan aldığı kelimeyi uzunluğu kadar döngüye sokuyor ve
kelime içindeki her karakteri tek tek karşılaştırıyor #32 yani boşluk oldukça adet değerini 1 arttırıyor (inc(adet) ile) sonra label'in caption özelliği x adet boşluk vardır yazdırıyor.

kodları denemedim tamamen cevap yaz kısmında kodladım
sorun çıkaracağını sanmam ama belirteyim