uses Robot;
begin
task('cc3');
for var i := 5 downto 0 do begin
for var j := 0 to i do begin
Paint;
Right;
end;
Down;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Все здравия с заданием по Pascal(фото прикрепил ниже Заранее
uses Robot;
begin
task('cc3');
for var i := 5 downto 0 do begin
for var j := 0 to i do begin
Paint;
Right;
end;
Down;
end;
end.