1. Информатика
  2. Составьте программу рисования

Составьте программу рисования 6 соприкасающихся окружностей диаметром 100 расположенных горизонтально

nastya3162 nastya3162    3   08.10.2019 10:10    0

Ответы
cutyboylovep07y0r cutyboylovep07y0r  10.10.2020 03:55

uses GraphABC;

var

 diam,i,x:integer;

Begin

 x := 50;

 for i:= 0 to 5 do begin

   Circle(x,50,50);

   x := x + 100;

 end;

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mogilastaaalena mogilastaaalena  16.09.2019 21:50
Предложение в кодировке unicode занимает 46 байт. после преобразования этого предложения в кодировку asii к нему добавили ещё 12 символов. сколько байт будет занимать новое предложение...
arisha0081 arisha0081  16.09.2019 21:50
Сколько слагаемых должно быть в сумме 1/3+4/6+9/11++kn2/kn2+2, чтобы сумма была больше составьте программу!...
RakoT1511 RakoT1511  20.11.2020 23:08
Працівник банку Віталій на робочому місці користувався особистою поштою та роздруковував фотографії з флешки. До яких загроз інформаційної безпеки банку моглипризвести такі дії?Зараження...
432120 432120  20.11.2020 23:08
Составьте программу управления графическим исполнителем для решения следующих задачи-анарисовать узор используя одну процедуру и цикл; 20 минутКоличество команд не более іон10Nке​...
Regina2203021 Regina2203021  20.11.2020 23:08
PYTHON, информатика С клавиатуры вводятся два целых числа a и b. Напишите программу, которая проверит, выполняется ли равенство a = b. Формат входных данных В отдельных строках вводятся...
saule844007 saule844007  20.11.2020 23:08
ПИТОН Дано трехзначное число. Напишите программу определения, является ли оно палиндромом, т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево....
ХЕЕЕЛПАНИТЕ ХЕЕЕЛПАНИТЕ  20.11.2020 23:07
Получив на вход число x, этот алгоритм печатает два числа a и b. Укажите наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 10....
КоТоФеЙкА03 КоТоФеЙкА03  20.11.2020 23:06
Через некоторое соединение в течение 75 секунд со скоростью 256 бит в секунду передаётся некоторый файл. Определите, за какое время можно передать этот же файл через другое соединение...
dmutallapova dmutallapova  20.11.2020 22:59
Количество цифров восьмеричного системы счисленияА. 2В. 10C. 8D. 16E. 12​...
Vandannc Vandannc  20.11.2020 22:59
Файл размером 120 Кбайт передаётся через некоторое соединение в течение 40 секунд. Определите размер файла в (Кбайт), который можно передать через это соединение за 50 секунд...

Популярные вопросы