Ввести с клавиатуры число линий и выстроить фигуру

Question

Ввести с клавиатуры число линий и построить фигуру

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Илья Плечко · Answer 1 · 2019-09-07 00:57:23+3:00

Илья Плечко 2019-09-07 00:57:23

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.

Галина Файнтих 2019-09-07 01:00:33

А если так, тоже не работает?

Алла Бахлычева 2019-09-07 01:05:07

uses GraphABC, crt;Vary,n:integer;BeginRead(n);For y:= 0 to n-1 do Line(100,300-y*(300 div (n-1)),400,y*(300 div (n-1)));End.

Ютина Алиса 2019-09-07 01:11:06

ееее) вышло

Semik Plavit 2019-09-07 01:19:33

рано отметила как нарушение(

Леканцева София 2019-09-07 01:26:33

)))

Колян Ротта 2019-09-07 01:34:55

растолкуй мне эту строчку если не трудно , пожалуйста Line(100,300-y*(300 div (n-1)),300,y*(300 div (n-1)));

Slavjan Evtishkin 2019-09-07 01:38:53

Вообщем тут заместо div можно использовать обычное разделение и округлять, но я мыслил, что вы команду round ещё не проходили))

Пирожник Даниил 2019-09-07 01:46:49

проходили

Violetta 2019-09-07 01:56:22

Тогда можно так: Line(100,300-y*round(300 / (n-1)),300,y*round(300 / (n-1)));

Егор Паренков 2019-09-07 02:00:48

Спасибо громадное