Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
muradveliyev
26.08.2022 00:49 •
Информатика
Организовать цикл для ввода 7-ми чисел и подсчитать ,сколько из них делится на 9
👇
Увидеть ответ
Ответ:
Masha6996
26.08.2022
Program f1;
var a: array [1..7] of integer;
k,i :integer;
for i:=1 to 7 do
readln(a[i]);
for i:=1 to 7 do
if a[i] mod 9=0 then k:=k+1;
writeln(k);
end.
4,8
(56 оценок)
Открыть все ответы
Ответ:
Mrkeu
26.08.2022
# Код на ruby 2.2.3p173
a1, a2 = [], []
for i in 100..999
t = i
s = 0
while t>0
s += t % 10
t = t / 10
end
a1<<i if i%7==0 and s%7==0
a2<<i if i%47==43
end
p a1
p a2
a3 = []
sum = 0
for i in 31..99
if i%3==0 and (i%10==2 or i%10==4 or i%10==8)
a3<<i
sum += i
end
end
p sum
p a3
Вывод
[133, 266, 322, 329, 392, 399, 455, 511, 518, 581, 588, 644, 700, 707, 770, 777, 833, 966]
[137, 184, 231, 278, 325, 372, 419, 466, 513, 560, 607, 654, 701, 748, 795, 842, 889, 936, 983]
378
[42, 48, 54, 72, 78, 84]
4,6
(33 оценок)
Ответ:
oksiur4enko
26.08.2022
# Код на ruby 2.2.3p173
a1, a2 = [], []
for i in 100..999
t = i
s = 0
while t>0
s += t % 10
t = t / 10
end
a1<<i if i%7==0 and s%7==0
a2<<i if i%47==43
end
p a1
p a2
a3 = []
sum = 0
for i in 31..99
if i%3==0 and (i%10==2 or i%10==4 or i%10==8)
a3<<i
sum += i
end
end
p sum
p a3
Вывод
[133, 266, 322, 329, 392, 399, 455, 511, 518, 581, 588, 644, 700, 707, 770, 777, 833, 966]
[137, 184, 231, 278, 325, 372, 419, 466, 513, 560, 607, 654, 701, 748, 795, 842, 889, 936, 983]
378
[42, 48, 54, 72, 78, 84]
4,4
(55 оценок)
Это интересно:
О
Образование-и-коммуникации
05.03.2022
Как эффективно учиться: советы для успешного обучения...
Х
Хобби-и-рукоделие
14.09.2022
Как составить гранатомет своими руками: Подробная инструкция...
П
Питомцы-и-животные
07.04.2021
Незаменимая информация о травмах ACL у собак и методах их лечения, не требующих хирургического вмешательства...
К
Кулинария-и-гостеприимство
30.04.2023
10 советов, как правильно пользоваться ножом для очистки овощей...
Д
Дом-и-сад
31.05.2022
Как выжить при землетрясении: советы экспертов...
Д
Дом-и-сад
05.03.2023
Как найти новое применение старым занавескам для душа...
К
Компьютеры-и-электроника
22.03.2021
Как выйти из учетной записи Google на Android–устройстве?...
М
Мир-работы
10.09.2022
Как стать зеленым беретом: все, что вы хотели знать о вступлении в элитное подразделение армии...
К
Компьютеры-и-электроника
19.07.2021
Как контролировать контент на YouTube с помощью блокирования по ключевым словам?...
О
Образование-и-коммуникации
26.09.2021
Как понимать людей: психологические аспекты взаимодействия...
Новые ответы от MOGZ: Информатика
katikatikatiilozre2d
29.08.2021
Для групповых операций с файлами используются маски имен файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых...
tolodono
20.02.2020
Отметьте все файлы подходящие под данную маску *_*.* 9_14.exe li_34_re.doc _1f.exe sh-15.tx...
Милкаi
16.11.2022
Адрес объекта (ячейки, строки, столбца, диапазона ячеек), используемый при записи формулы в программе Excel * ОФункция. Ячейка. Формула. Ярлык. Ссылка....
Настіяа
09.01.2021
Напишите программу на паскале: Вывести фигуру треугольника из чисел от 1 до 15 с “вертикальной разверткой”, т.е. в первом столбике будут числа от 1 до 5, во втором от 6 до 9 и...
vaniaslavioglo
30.03.2022
разобрать шифр! Тут зашифровали фразу. 4B575753560E1C2A0E1B2F0E1B2F571 750620E1B2F4D524C51604B5E570E1B2 F3E3E3E3E3E43351E43403A21311F3E1 F4E4F1F1D194...
Zipchik
02.06.2022
решить информатику цикл через while без Через...
anastasiysu77
05.07.2022
Даны два массива одинаковой размерности A(N) и В(N). Определить количество элементов, удовлетворяющих условиям A(i) B(i);A(i)...
АлексаLove06
14.03.2021
Перевести числа из десятичной системы счисления в двоичную: 78, 112, 347, 230, 612, 395, 789, 178, 256, 800....
Nasva
14.03.2021
Эта фигура получается при использовании в ms paint инструмента прямоугольник и удержаний клавиш shift...
BASS1111
12.05.2023
Чем отличается жк монитор от элт монитора...
MOGZ ответил
Прочитайте,вставьте буквы. обьясните ,как вы понимаете смысл поговорок.выпишите...
Гоголь мертвые души сложноподчинённое предложение с придаточным цели...
Из 16 счетных палочек надо выложить пять квадратов. переложи 2 палочек так,...
Распредели слова в два столбика-тела живой и не живой природы ромашка горы глина...
Назовите события и дату. и тогда как соколы стремглав полетели на быстрой дон....
Где используются гидравлические машины?...
Сочинение миниатюра на тему зима с краткими прилагательными...
Дать определение транспорт кара камбия сердцевина сосуды сито видные трубки...
Решите на складе в вагоне и контейнере находится 37 тонн груза.на складе груза...
Как сделать с праверкой эти уравнения...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var a: array [1..7] of integer;
k,i :integer;
for i:=1 to 7 do
readln(a[i]);
for i:=1 to 7 do
if a[i] mod 9=0 then k:=k+1;
writeln(k);
end.