Объяснение:
uses GraphABC;
begin
line(0,0,640,240);
line(45,0,640,240);
line(89,0,640,240);
line(132,0,640,240);
line(176,0,640,240);
line(219,0,640,240);
line(263,0,640,240);
line(306,0,640,240);
line(350,0,640,240);
line(393,0,640,240);
line(437,0,640,240);
line(480,0,640,240);
end.
uses GraphABC;
begin
line(0,0,640,0);
line(0,47,640,47);
line(0,94,640,94);
line(0,141,640,141);
line(0,188,640,188);
line(0,235,640,235);
line(0,282,640,282);
line(0,329,640,329);
line(0,376,640,376);
line(0,423,640,423);
line(0,470,640,470);
end.
Объяснение:
uses GraphABC;
begin
line(0,0,640,240);
line(45,0,640,240);
line(89,0,640,240);
line(132,0,640,240);
line(176,0,640,240);
line(219,0,640,240);
line(263,0,640,240);
line(306,0,640,240);
line(350,0,640,240);
line(393,0,640,240);
line(437,0,640,240);
line(480,0,640,240);
end.
uses GraphABC;
begin
line(0,0,640,0);
line(0,47,640,47);
line(0,94,640,94);
line(0,141,640,141);
line(0,188,640,188);
line(0,235,640,235);
line(0,282,640,282);
line(0,329,640,329);
line(0,376,640,376);
line(0,423,640,423);
line(0,470,640,470);
end.
Номер 6.
-121 т.к.
n<3, выводится -1. Переноса на следующую строку нет.
Процедура вызывает себя с аргументом n+3. n+3<3 (2<3) - выводится 2. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Процедура вызывает себя с аргументом n+2. n+2<3 (1<3) - выводится 1. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Номер 7.
1392613
Рассуждения полностью аналогичны предыдущему номеру. Проще всего нарисовать дерево со всеми вызовами процедуры либо просто написать программу.