Question

Va rooooooog ajutor DAU MULTE PUNCTE
Scrieti un program Pascal care va contine o functie ce afiseaza numarul de spatii intr-un sir de caractere.(Program PASCAL nu +c sau de genul acesta)

Answer 1

program p1;
var s:string;
function spatii(str:string):byte;
var i, b: byte;
begin
  b:=0;
  for i:=1 to length(str) do
    if str[i] = ' ' then b:=b + 1;
  spatii:=b;
end;
begin
  readln(s);
  writeln(spatii(s));
  readln;
end.