program posledovatelnosti_cifr;
var i,j,k:integer;
begin
for i:=1 to 9 do
write(i);
for j:=7 downto i-1 do write('0');
writeln;
for k:=1 to i do if i<=8 then write(k) else write();
end;
end.
Скорее всего не самое оптимальное решение, но именно так получилось получить желаемый вывод.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program posledovatelnosti_cifr;
var i,j,k:integer;
begin
for i:=1 to 9 do
begin
write(i);
for j:=7 downto i-1 do write('0');
writeln;
for k:=1 to i do if i<=8 then write(k) else write();
end;
end.
Скорее всего не самое оптимальное решение, но именно так получилось получить желаемый вывод.