1)
Pentru m=1, n=5 apelurile se vor executa de 5 ori.
Pentru m=3, n=5 apelurile se vor executa de 3 ori.
Pentru m=3, n=3 apelurile se vor executa odată.
Pentru m=5, n=3 apeluri se vor execcuta 0 ori.
2)
program brainly;
var n:integer;
c:char;
begin
for c:='A' to 'Z' do begin
n:=ord(c);
writeln(c,'->',n);
end;
end.
3)
program brainly;
var n,i,sum,prod:integer;
begin
writeln('Dati n: ');
read(n);
sum:=0;
for i:=1 to n do begin
sum:=sum+(2*i);
if i=n then begin
Write(2*i, '=');
end
else
Write(2*i, '+');
end;
Write(sum);
writeln();
sum:=0;
for i:=1 to n do begin
sum:=sum+(2*i+i);
if i=n then begin
Write(2*i+i, '=');
end
else
Write(2*i+i, '+');
end;
Write(sum);
writeln();
prod:=1;
for i:=1 to n do begin
prod:=prod*(2*i);
if i=n then begin
Write(2*i, '=');
end
else
Write(2*i, '*');
end;
Write(prod);
writeln();
prod:=1;
for i:=1 to n do begin
prod:=prod*(2*i+i);
if i=n then begin
Write(2*i+i, '=');
end
else
Write(2*i+i, '*');
end;
Write(prod);
end.
