Răspuns :
Program P94;
function este_litera(c:char):boolean;
var este_litera_mica,este_litera_mare:boolean;
begin
este_litera_mare:=(ord(c)>=ord('A')) and (ord(c)<=ord('Z'));
este_litera_mica:=(ord(c)>=ord('a')) and (ord(c)<=ord('z'));
if este_litera_mare or este_litera_mica then
este_litera:=true
else
este_litera:=false
end;
var F : text;
c,c0 : char;
nr_cuvinte:integer;
begin
nr_cuvinte:=0;
assign(F,'t2.txt');
reset(F);
{ deschide F pentru citire }
read(F,c0);
while not eof(F) do
begin
while not eoln(F) do
begin
read(F,c);
if not este_litera(c) and este_litera(c0) then
nr_cuvinte:=nr_cuvinte+1;
write(c);
c0:=c;
end;
readln(F); writeln;
end;
close(F);
readln;
writeln('Nr cuvinte este:',nr_cuvinte);
end.
function este_litera(c:char):boolean;
var este_litera_mica,este_litera_mare:boolean;
begin
este_litera_mare:=(ord(c)>=ord('A')) and (ord(c)<=ord('Z'));
este_litera_mica:=(ord(c)>=ord('a')) and (ord(c)<=ord('z'));
if este_litera_mare or este_litera_mica then
este_litera:=true
else
este_litera:=false
end;
var F : text;
c,c0 : char;
nr_cuvinte:integer;
begin
nr_cuvinte:=0;
assign(F,'t2.txt');
reset(F);
{ deschide F pentru citire }
read(F,c0);
while not eof(F) do
begin
while not eoln(F) do
begin
read(F,c);
if not este_litera(c) and este_litera(c0) then
nr_cuvinte:=nr_cuvinte+1;
write(c);
c0:=c;
end;
readln(F); writeln;
end;
close(F);
readln;
writeln('Nr cuvinte este:',nr_cuvinte);
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!