Răspuns :
urmeaza trei programe pentru fiecare din a), b), c)
program p1;
var s:string;
i, ap:integer;
begin
write('dati sirul de caractere: '); readln(s);
ap:=0;
for i:=1 to length(s) do
begin
if (s[i]='a') then ap:=ap+1;
if (s[i]='b') then ap:=ap+1;
end;
writeln('aparitii ale lui ''a'' si ''b'' este egal cu ', ap);
end.
program p2;
const vocale=['a','e','i','o','u','A','E','I','O','U'];
var s:string;
i:integer;
begin
write('dati textul: '); readln(s);
for i:=1 to length(s) do
if (s[i] in vocale) then s[i]:='w';
writeln(' textul modificat:');
writeln(s);
end.
program p3;
var s:string;
i:integer;
begin
write('dati textul: '); readln(s);
for i:=1 to length(s) do
if (s[i]='a') then s[i]:='b';
writeln(' textul modificat:');
writeln(s);
end.
Vă mulțumim că ați ales să vizitați site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți alte întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați în lista de favorite!