Question

Scrieti un program care sa numere cate caractere albe se gasesc intr-o fraza introdusa de la tastatura.Daca nu exista caractere albe atunci va afisa mesajul “EROARE!”

Answer 1

var s:string;
i:integer;
l:byte;
begin
read(s);
for i:=1 to length(s) do if s[i]=' ' then inc(l);
if l=0 then writeln('EROARE!') else writeln(l);
end.