М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Jullia123123
Jullia123123
24.10.2020 11:03 •  Информатика

Пользователь вводит любое целое число а. необходимо вывести все целые числа в, для которых а делиться без остатка на в*в и не делиться без остатка на в*в*в

👇
Ответ:
Horsik1Konnik
Horsik1Konnik
24.10.2020
# Код на ruby 2.2.3p173
def zadanie(a)
    p a
    for b in 1..a
        p b if a % b**2 == 0 and a % b**3 != 0
    end
    return a
end

# # Примеры применения
p zadanie(1024)
p zadanie(16)
p zadanie(100)
4,5(51 оценок)
Открыть все ответы
Ответ:
kiyash98
kiyash98
24.10.2020
Программное обеспечение (software) – это набор команд, управляющих работой компьютера. Без программного обеспечения компьютер не сможет выполнять задачи, которые мы обычно связываем с компьютерами. Функции программного обеспечения следующие:управлять компьютерными ресурсами организации;обеспечивать пользователя всеми инструментами, необходимыми для извлечения пользы из этих ресурсов;выполнять роль посредника между организациями и хранимой информацией.Выбор соответствующего потребностям организации программного обеспечения – одна из ключевых задач управляющего персонала.ПРОГРАММЫПрограмма (program) – это набор команд для компьютера. Процесс создания или написания программ называется программированием, а люди, которые специализируются на этом виде деятельности – программистами. Синонимом слову "программа" является термин "приложение" (application).
Для того чтобы программа была выполнена, она должна быть загружена в оперативную память компьютера вместе с данными, которые необходимо обработать (обычно говорят запустить программу или запустить на выполнение). Когда выполнение программы завершено, она выгружается из оперативной памяти компьютера. Все современные компьютеры позволяют загрузить на выполнение несколько программ одновременно. ОСНОВНЫЕ ТИПЫ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯСуществует два основных типа программного обеспечения: системное и прикладное. Каждый тип выполняет различные функции. Системное программное обеспечение (system software) – это набор программ, которые управляют компонентами компьютера, такими как процессор, коммуникационные и периферийные устройства. Программистов, которые создают системное программное обеспечение, называют системными программистами.
К прикладному программному обеспечению (application software) относятся программы, написанные для пользователей или самими пользователями, для задания компьютеру конкретной работы. Программы обработки заказов или создания списков рассылки – примеры прикладного программного обеспечения. Программистов, которые пишут прикладное программное обеспечение, называют прикладными программистами.
Оба типа программного обеспечения взаимосвязаны и могут быть представлены в виде диаграммы,Системное программное обеспечение обеспечивает и контролирует доступ к аппаратному обеспечению компьютера. Прикладное программное обеспечение взаимодействует с аппаратными компонентами через системное. Конечные пользователи в основном работают с прикладным программным обеспечением. Чтобы обеспечить аппаратную совместимость, каждый тип программного обеспечения разрабатывается для конкретной аппаратной платформы.
4,4(27 оценок)
Ответ:
3JlaK
3JlaK
24.10.2020
Через Case :
Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Case k mod 10 of
1:WriteLn('В букете ',k,' цветок');
2..4:WriteLn('В букете ',k,' цветка');
0,5..9:WriteLn('В букете ',k,' цветков');
end
End.

Через if :

Var
k:integer;
Begin
WriteLn('Введи число k');
ReadLn(k);
if k in[11..19] then WriteLn('В букете ',k,' цветков')
else
Begin
if k=1 then WriteLn('В букете ',k,' цветок');
if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка');
if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков');
end
End.
4,7(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ