Предмет: Информатика,
автор: pafus522
Паскаль. Все на фото
Приложения:
![](https://files.topotvet.com/i/686/68623be0a07bd55339c97d7bda601f19.png)
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: История,
автор: sayanov
Предмет: Химия,
автор: okazaoka999
Предмет: Математика,
автор: faridhasanov7
Предмет: Математика,
автор: Аноним