нарисовать в паскаль abs с использованием цикла

Нарисовать в паскаль abs с использованием цикла

Задать свой вопрос
1 ответ
Uses GraphABC;var x, y, n, i:integer;const width = 25;const height = 100;begin  read(x,y,n);  DrawRectangle(x,y,x+width*n,y+height);  for i:=2 to n do  begin    x+=width;    MoveTo(x,y);    LineTo(x,y+height);  end;end.
Нина Салданова
спасибо огромное!!!
Николай Бураченко
если сделаешь даже готов на мобилу 20 руб кинуть
Андрей
Усё готово
Данька
кидай в коменты
Плессер Юрий
я из чушка выйду кину лаве для тебя
Оксана Лучина
ток номер оставь
Илья Шугуров
Я прям в решении изменил
Кирилл Синещеков
Не надо)
Мелюхина Злата
аа
Мирослава Фаткудинова
ды не я кину
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт