Anayagar 27 октября 2019 в 08:00

СРОЧНО!ПАСКАЛЬ
Напишите программу, содержащую процедуру print, которая выводит последовательность: AABABCABCD ... ABC ... XYZ

Procedure print();
 var i,j: char;
begin
 for i := A to Z do
 for j := A to i do
   write(j)
end;

begin
 print()
end.
Для комментирования необходимо зарегистрироваться на сайте