Question

PLS Program Pascal m
Scrie un program care calculeaza nu
marul de cuvinte dintr-un șir de caractere dat . Utilizati un subprogram pentru calcularea numarului de cuvinte dintr-un șir de caractere .

Answer 1

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.