Ответы
Ответ дал:
0
uses GraphABC;
Var
y,n:integer;
Begin
Write('n = ');
ReadLn(n);
For y:= 0 to n-1 do
Line(100,300-y*(300 div (n-1)),300,y*(300 div (n-1)));
End.
Var
y,n:integer;
Begin
Write('n = ');
ReadLn(n);
For y:= 0 to n-1 do
Line(100,300-y*(300 div (n-1)),300,y*(300 div (n-1)));
End.
Ответ дал:
0
проходили
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад