Question

Se dă un număr natural n. Scrieți un program Pascal ce va afișa următoarele n serii de caractere:
a
a b
a b c
..............
a b c ... n.

Answer 1

Program HelloWorld;
var n,i,k:integer;
var c:char;
begin
  writeln('Scrie valoarea lui n:');
  readln(n);
  k:=1;
  while k<=n do
  begin
  c:='a';
  write(c);
  for i:=1 to k-1 do
  begin
    inc(c);
    write(c);
  end;
  k:=k+1;
  writeln(' ');
  end;
  
end.

Answer 2

var i,n,p:integer;
a:char;

begin
read(n);
writeln;

for i:=1 to n do begin
a:='a';

for p:=1 to i do begin
write(a,' ');
inc(a);
end;

writeln;
end;

end.