Question

Паскаль. Все на фото

Answer 1

begin
for var i:=ord('A') to ord('A')+readinteger('Введите n: ')-1 do
begin
  for var j:=1 to  i-ord('A')+1 do write (chr(i));
writeln ();
end;
end.