Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
makssabarov
15.07.2021 02:56 •
Информатика
Pascal ! нарисуйте окружность такой линией, ширина которой больше радиуса. обведите полученную фигуру по контуру
Показать ответ
Ответ:
VicktoriaGra
28.09.2020 18:16
//Pascal ABC.NET 3.1 сборка 1256
Uses
GraphABC;
Var
r,v:integer;
begin
writeln('Введите радиус:');
readln(r);
writeln('Введите ширину контура:');
readln(v);
brush.Style:=bsClear;
pen.Width:=r+10;
circle(window.Center.X,window.Center.Y,r);
pen.Width:=v;
pen.Color:=clPurple;
circle(window.Center.X,window.Center.Y,r+(r+10) div 2);
end.
Примечание:
При вводе 100 и 30 получается красиво.
0,0
(0 оценок)
Популярные вопросы: Информатика
Evgeniusz
23.05.2021 15:31
Движение робота по линии. Урок 3 станови соответствие между фрагментами программного кода и их описаниями.сумма яркостей внешнего освещениРис. 1.сумма яркостей отраженного...
NiKaEmpty
06.10.2021 03:50
Що наталя миколаївна із твору климко відмовилася обміняти бороданеві на базарі?...
anton270
06.10.2021 03:50
Решить : підчас спалювання 100кг сірки утворилося 160кг сульфуру (iv) оксиду. розрахуйте вихід продукту....
Ксюхахаха
06.10.2021 03:50
Написать анатацию к книге гари потер...
Саша13398
06.10.2021 03:50
Переводить ocean world: whales whales are the biggest animals in the sea.they are much bigger than any animals on land.the largest whales are more than 30 meters long....
Kostya2347
06.10.2021 03:50
Письменно подтвердите, что во второй половине xvii в. царская власть приобрела самодержавный характер. не менее 4-5 аргументов....
elizapanfilova1
06.10.2021 03:50
Какое значение имеет чек на приобретенный вами товар?...
hiordi
06.10.2021 03:50
Как будет на казахском. я маме. я маме мыть посуду....
seminalydmila
06.10.2021 03:50
Сравни арктику и антарктику . напиши резличия и сходства ....
соня1582
06.10.2021 03:50
Изменить название деревни уныллоу так, чтобы оно звучало радостно.напишите несколько предложений о жителях деревни....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses
GraphABC;
Var
r,v:integer;
begin
writeln('Введите радиус:');
readln(r);
writeln('Введите ширину контура:');
readln(v);
brush.Style:=bsClear;
pen.Width:=r+10;
circle(window.Center.X,window.Center.Y,r);
pen.Width:=v;
pen.Color:=clPurple;
circle(window.Center.X,window.Center.Y,r+(r+10) div 2);
end.
Примечание:
При вводе 100 и 30 получается красиво.