Условие задания:

2♦
Определи вид цикла.
  
uses DrawMan;
var i,j:integer;
begin
task ( 'cc1' );
topoint (1,1);
for j:=1 to 8 do
for i:=1 to 9 do
begin
pendown;
onvector (1,j);
onvector (0,-j);
end;
penup;
topoint (0,0);
end.
 
 

Для того чтобы решать задания, необходимо зарегистрироваться.

Быстрая регистрация: