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

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

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

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