Question

De la tastatură se introduce un șir de caractere reprezentant de variabilă s.Determinati lungimea șirului introdus (IN PASCAL)

Answer 1

Program Tema;

var s:string;
    lungime:integer;
Begin
writeln('Introduceti sirul:');
readln(s);
lungime:=length(s);
writeln('Lungimea sirului este: ',lungime);

End.