Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
1828384858
13.12.2022 13:51 •
Информатика
Даны целые числа А и В (А делится на В без остатка). Написать программу, которая находит А/B, не используя оператор деления "/"
👇
Увидеть ответ
Открыть все ответы
Ответ:
gfsfsdcxz
13.12.2022
Uses graph; var gd,gm,c,i:integer; p:array[1..12] of Pointtype; begin gd:=detect; initgraph(gd,gm,''); setcolor(10); circle(340,105,50); Setfillstyle(1,10); fillellipse(340,105,50,50); setcolor(12); circle(290,170,50); Setfillstyle(1,12); fillellipse(290,170,50,50); setcolor(13); circle(390,190,50); Setfillstyle(1,13); fillellipse(390,190,50,50); p[1].x:=240;p[1].y:=190; p[2].x:=440;p[2].y:=190; p[3].x:=440;p[3].y:=240; p[4].x:=345;p[4].y:=265; p[5].x:=345;p[5].y:=365; p[6].x:=440;p[6].y:=390; p[7].x:=240;p[7].y:=390; p[8].x:=335;p[8].y:=365; p[9].x:=335;p[9].y:=265; p[10].x:=240;p[10].y:=240; p[11].x:=p[1].x;p[11].y:=p[1].y; setcolor(11); moveto(p[1].x,p[1].y); for i:=1 to 11 do lineto(p[i].x,p[i].y); Setfillstyle(1,11); fillpoly(11,p); readln end.
4,8
(58 оценок)
Ответ:
akzhanovarnai2
13.12.2022
Uses graph; var gd,gm,c,i:integer; p:array[1..12] of Pointtype; begin gd:=detect; initgraph(gd,gm,''); setcolor(10); circle(340,105,50); Setfillstyle(1,10); fillellipse(340,105,50,50); setcolor(12); circle(290,170,50); Setfillstyle(1,12); fillellipse(290,170,50,50); setcolor(13); circle(390,190,50); Setfillstyle(1,13); fillellipse(390,190,50,50); p[1].x:=240;p[1].y:=190; p[2].x:=440;p[2].y:=190; p[3].x:=440;p[3].y:=240; p[4].x:=345;p[4].y:=265; p[5].x:=345;p[5].y:=365; p[6].x:=440;p[6].y:=390; p[7].x:=240;p[7].y:=390; p[8].x:=335;p[8].y:=365; p[9].x:=335;p[9].y:=265; p[10].x:=240;p[10].y:=240; p[11].x:=p[1].x;p[11].y:=p[1].y; setcolor(11); moveto(p[1].x,p[1].y); for i:=1 to 11 do lineto(p[i].x,p[i].y); Setfillstyle(1,11); fillpoly(11,p); readln end.
4,5
(12 оценок)
Это интересно:
Т
Транспорт
26.01.2020
Как смазать велосипедную втулку: простые советы от эксперта...
И
Искусство-и-развлечения
20.02.2022
Как узнать своих персонажей: советы для писателей...
З
Здоровье
13.09.2021
Как избавиться от большого волдыря за короткий промежуток времени...
К
Кулинария-и-гостеприимство
06.01.2022
Мастер-класс: как правильно готовить спаржу на плите...
З
Здоровье
21.10.2022
Опасный гость - как определять и лечить укусы паука отшельника...
К
Компьютеры-и-электроника
09.04.2021
Как блокировать доступ к YouTube для детей и сотрудников...
К
Компьютеры-и-электроника
27.01.2020
Изучаем, как создавать формы в HTML: полное руководство...
Х
Хобби-и-рукоделие
14.04.2021
Завязывание скользящих узлов на ожерелье: профессиональный подход...
О
Образование-и-коммуникации
26.04.2020
Лучшие способы самостоятельно создать аэрогель...
З
Здоровье
21.04.2021
Как распознать экзему: симптомы и признаки...
Новые ответы от MOGZ: Информатика
Sashunai
14.12.2021
Нужно сделать программу на С....
Юрашевич101
29.08.2021
Дан порядковый номер дня года (отсчет идет с 1-го января). Требуется вывести номер дня недели этого дня, если 1 января — понедельник. (Запрещено использовать команду...
d3ee
12.11.2021
Выполните пример. В тетради выполните блок схему и перепишите листинг. ПРИМЕР №1. Var a,b,c: Integer; delenie:real; name:string[10]; begin Writeln(‘Введите Ваше имя’);...
Ekaterina181203
01.04.2023
составьте алгоритм (в виде блок схемы) упорядочение мужской обуви на полочке. Например представьте, что их упорядочивает робот-уборщик и ему нужен алгоритм действий....
tanyakill9087
12.07.2022
Реализовать программу, выполняющую ниже описанные задачи (для каждой задачи свою программу) С входными и выходными данными нужно определиться самим (это часть задания)....
Польди
08.04.2023
А сможешь решить такую задачку? В поле 100 на 100 точек падает закреплённая в точке (0,0) палка, смотри рисунок. Надо вычислить и распечатать координаты Y ста точек...
Darina6940
21.05.2023
Записать в развернутой форме следующие числа 1001010,1101 2 132,706 8 1A5B0F,5E 16 1413,121 5 555,55 6 123,1 4...
Шакира228
17.04.2023
Как создавался интернет напишите кратко для проекта...
Mihan4ik
01.10.2022
Запишите HTML-код для отображения на Web-странице текста «Каникулы», выделив первую букву красным цветом, жирным; третью букву – синим, размер – 4, курсивом; пятую...
andreyschibria
15.02.2020
Объясните: как считать двумерный массив из файла в Pascal.ABC.Net...
MOGZ ответил
Один лыжник бежит со скоростью 14км/ч,другой 130000м/я. скорость...
Перший і другий крани наповнюють ванну водою за 20 хвилин, другий...
Чем вы можете объяснить причины распространения кальвинизма в...
Как проверить буквы в словах бархатный 2 букву а 2) сжимал букву...
Решите уравнение а)cosx=-1 б)sinx=корень из 2/2 в)ctgx=-корень...
Мальчик массой 45 кг стоит на лыжах. длина каждой лыжи 1,5 м,...
Мне нужно составить (твір- голову ничего не лезит сочинение на...
Спиши,розкривши дужки та ставлячи іменники у потрібному відмінку....
Подбери по 4 примера относительных прилагательных, обозначающих...
Два устаревших слова из рассказа бежин луг...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ