Question

" var A : set of char; "
-eleborati o functie care returneaza numarul de caractere din multimea A
VA ROG AJUTATIMA !!

Answer 1

Program Tema;
var A:set of char;
function nr_caractere(A:set of char):integer;
var length:integer;
     c:char;
begin
length:=0;
for c in A do
length:=length+1;

nr_caractere:=length; 
end;

begin
writeln('Introduceti sirul de caractere:');
readln(A);
writeln('Nr de caractere din sirul A este:',nr_caractere(A));
end.