Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
linagalkinaa1
04.04.2021 18:25 •
Информатика
С клавиатуры вводится 8 целых чисел. С цикла for найди количество положительных чисел
Ответ:
almightybarbara
01.01.2021 13:41
for I:=1 to 8 do
read(a[I]);
b:=0;
for I:=1 to 8 do
if (a[I]mod3=0) and
(a[I]mod10=4) then
b:=b+1;
0,0
(0 оценок)
Популярные вопросы: Информатика
Aluniy
25.04.2022 04:42
Программа необходимая для работы разных устройств...
Springtrap222134124
25.04.2022 04:42
Уисполнителя квадратор две команды, которым присвоены номера: 1. прибавь 3 2. возведи в квадрат первая из них увеличивает число на экране на 3, вторая возводит...
ненадамине
25.04.2022 04:42
Дано: 160 страниц 50 строк 64 символов 1 символ = 16 шт v-? килобайт решить ,какого решение?...
maxtihvin
28.01.2021 07:50
Напишите программу,которая в последовательности целых чисел определяет количество чисел,кратных 5 или 9.программа получает на вход целые числа,количество введённых...
marisshechka1
28.01.2021 07:50
Составьте программу вычисления суммы чисел в диапазоне от 80 до 120...
Tokuz
25.04.2022 18:25
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651) Язык...
ktvsl
06.01.2022 22:34
4. Прочитайте условие задачи. Напишите программный код Дано V-возраст ЧЕЛОВЕКА.Вывестистроку-описание возраста,соответствующей числу V (от 0-до 3 — «сидит дома»,...
dianavolk00
01.02.2022 22:16
Сколько килобайт составляет сообщение содержащее 8192 бита?...
анна2170
03.08.2022 10:17
а) Заполните трассировочную таблицу, используя следующие выходные данные N=5; S=0; i=0...
artandr2212
21.09.2020 12:03
Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X = 6) И НЕ (X = 11)....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
for I:=1 to 8 do
read(a[I]);
b:=0;
for I:=1 to 8 do
if (a[I]mod3=0) and
(a[I]mod10=4) then
b:=b+1;