Răspuns :
Program nrdecuvinte;
Var a:string; k,i:integer;
function nr_cuv(k:integer):integer;
Begin
For i:=1 to length(a) do
If(a[i]=' ')or(length(a)=i)then
k := k+1;
nr_cuv:=k;
End;
Begin
Write('a='); Read(a); writeln;
Write('Sirul contine ',nr_cuv(k),' cuvinte.');
End.
Var a:string; k,i:integer;
function nr_cuv(k:integer):integer;
Begin
For i:=1 to length(a) do
If(a[i]=' ')or(length(a)=i)then
k := k+1;
nr_cuv:=k;
End;
Begin
Write('a='); Read(a); writeln;
Write('Sirul contine ',nr_cuv(k),' cuvinte.');
End.
Vă mulțumim că ați vizitat site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Dacă aveți întrebări sau nevoie de asistență suplimentară, nu ezitați să ne contactați. Pe curând și nu uitați să ne adăugați la favorite!