использовать Чертежник алг нач сместиться на вектор (1,3) нц 5 раз Угол кц кон алг Угол нач опустить перо сместиться на вектор (3,0) сместиться на вектор (0,-3) поднять перо сместиться на вектор (-2,4) кон
Квадраты:
использовать Чертежник алг нач сместиться на вектор (1,4) нц 3 раз Квадрат кц сместиться на вектор (-10,-2) нц 2 раз Квадрат кц кон
алг Квадрат нач опустить перо сместиться на вектор (0,3) сместиться на вектор (3,0) сместиться на вектор (0,-3) сместиться на вектор (-3,0) поднять перо сместиться на вектор (4,0) кон
Ромбы:
использовать Чертежник алг нач сместиться на вектор (4,5) опустить перо сместиться на вектор (1,1) сместиться на вектор (1,-1) сместиться на вектор (-1,-1) сместиться на вектор (-1,1) поднять перо сместиться на вектор (3,0) опустить перо сместиться на вектор (-2,-2) сместиться на вектор (-2,2) сместиться на вектор (2,2) сместиться на вектор (2,-2) поднять перо сместиться на вектор (1,0) опустить перо сместиться на вектор (-3,-3) сместиться на вектор (-3,3) сместиться на вектор (3,3) сместиться на вектор (3,-3) поднять перо сместиться на вектор (1,0) опустить перо сместиться на вектор (-4,-4) сместиться на вектор (-4,4) сместиться на вектор (4,4) сместиться на вектор (4,-4) кон
Var A:array[1..30] of integer; N,k,i:byte; Min,Max:integer; Begin ReadLn(N); k:=0; For i:= 1 to N do Begin Read(A[i]); if A[i]<= 30 then k:=k+1 End; Max:=A[1]; Min:=A[1]; For i:= 2 to N do Begin if A[i]>Max then Max:=A[i]; if A[i]<Min then Min:=A[i]; End; WriteLn(Max-Min,' ',k); End.
Const n=5; var x,y:array[1..n] of integer; i,j,a,s,k:integer; begin writeln('vvedite a='); readln(a); writeln('vvedite massiv x='); for i:=1 to n do read(x[i]); writeln ('vvedite massiv y='); for j:=1 to n do read(y[j]); k:=0; s:=0; for i:=1 to n do for j:= 1 to n do if x[i]*y[j]<=a then begin k:=k+1; s:=s+(x[i]*y[j]); end; writeln ('kolicestvo=',k,' summa=',s); readln; end.