Danin
4 год назад
Паскаль. Все на фото
ОТВЕТЫ
Казимир
Oct 24, 2020
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.
95
Смежные вопросы:
