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.
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!
