Предмет: Информатика, автор: pafus522

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

Приложения:

Ответы

Автор ответа: Студэнt
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.
Похожие вопросы
Предмет: Химия, автор: okazaoka999
Предмет: Математика, автор: faridhasanov7