Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы
Гость
Гость