• Написать программу которая будет выводить на экран забор, состоящий из 50 реек равного размера, в pascalABC.net
    типо как должно примерно получится нарисовал в paint и прикрепил.

    question img

Ответы 1

  • program test;uses graphabc;var i,x:integer;begin write('Сколько досок для забора тебе нужно? = ');readln(x);for i:=1 to x do begin line(50+i*50,400,50+i*50,200);line(50+i*50,200,75+i*50,190);line(75+i*50,190,100+i*50,200);line(100+i*50,200,100+i*50,400);line(100+i*50,400,50+i*50,400);end;end.
    • Автор:

      kcda1z
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years