Question

Elaborati un program in pascal care va citi de la tastatura un sir de caractere(string). Afiseaza la ecran numarul de enunturi si numarul de cuvinte din acest sir.

Answer 1

var i,k,a:integer;s:string;b:array [1..10] of integer;beginreadln(s);a:=0;for i:=1 to length(s) doif s[i]='.' thenbegina:=a+1end;writeln(s,'  Sunt ',a,' propoziti',' , ',length(s),' cuvinte.');end.

2d6c7984f0266387edce903a8b6662d0.txt

c293f8595ee93d8783bf6b701fa085ca.pas