Вот я рассказал несколько способов, как преобразовать word бесплатно и без особых заморочек, используя 2 разных подхода: Стандартные офисные программы, Специальное приложение.
Удачи !!!!!
Ответ:
Объяснение:
появится ошибка в строке x:4
после того как поправишь ее на x:=4
а write на writeln
последовательно появятся
4
16
64
Uses Drawman;
begin
Task('a2');
ToPoint(3,2);
PenDown;
OnVector(2,2);
OnVector(-4,2);
PenUp;
OnVector(7,-1);
PenDown;
OnVector(-3,-1);
OnVector(2,-3);
PenUp;
ToPoint(0,0);
<span>end.
uses Drawman;
begin
Task('a3');
ToPoint(2,1);
PenDown;
OnVector(4,0);
PenUp;
OnVector(-3,1);
PenDown;
OnVector(0,3);
PenUp;
OnVector(1,-1);
PenDown;
OnVector(5,-1);
PenUp;
ToPoint(0,0);
<span>end.</span></span>