Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
plimita134
08.06.2023 07:19 •
Информатика
Составить программу паскаль чтобы сделать бусы, ювелир взял нить длиной d и жемчужины радиуса r. определить, сколько жемчужин он сможет нанизать на эту нить.
Показать ответ
Ответ:
Александра66656
15.07.2020 14:21
Program abc;
Var d, R, n: real;
Begin
Writeln('Введите длину нити: ');
Read(d);
Writeln('Введите радиус жемчужин: ');
Read(R);
n:= d/R;
n:= int(n);
Writeln('Поместится: ', n, ' жемчужин');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
shishkinaviolet
14.06.2022 03:16
Нужно выбрать что из этого схема базы данных, а что из этого наполнение базы данных...
zhenyaermakov
01.03.2023 21:39
По форме представления информации делятся на следующие виды...
14062006123
09.04.2022 04:59
Определи значение переменной b после выполнения алгоритма: a := 5 b := 5 – 5 * a b := b / 2 * a...
Iriska91l23
14.01.2023 23:30
Задание по С++ Дано натуральное число N (N 10000). Определить, верно ли, что все четыре цифры числа различны, как, например, у чисел 1234, 0541....
vazirkhanovalia
08.07.2022 11:54
1. Дополни предложения, в окошки напиши (скопируй) недостающие слова: (шрифт, алфавитном порядке, специальные окошки, кнопки изменения стиля, pt, дюйма, названия шрифтов,...
zejnabnasibova
18.12.2022 04:34
Очень надо! Только правильно отвечайте ...
МарысяДэн
29.03.2022 09:02
Напишите программу на Python 10.11 Создайте матрицу (список из вложенных списков) размера N x N (фиксируются в программе), заполненную случайными целыми числами...
медвежонок41
20.02.2022 08:51
Сообщение информационный объем которого равен 15 кбайт занимает 4 страницы по 64 строки в каждой из которых записано по 60 символов сколько символов в алфавите языка...
Antoniow27
04.04.2021 00:12
Запиши выражение g+sg⋅n−4 в виде пригодном для использования в программе: (g+s)/(g∗n−4) (g+s)÷(g⋅n−4) g+sg⋅n−4 все ответы верные...
tulenchik26
28.09.2020 09:15
Петя скачивал файл со скоростью 218 бит/с, а затем передавал его Ване со скоростью 220 бит/с. На скачивание файла Петя потратил 5 секунд. Сколько секунд заняла передача...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var d, R, n: real;
Begin
Writeln('Введите длину нити: ');
Read(d);
Writeln('Введите радиус жемчужин: ');
Read(R);
n:= d/R;
n:= int(n);
Writeln('Поместится: ', n, ' жемчужин');
end.