Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Lera111katy
12.06.2020 02:04 •
Информатика
Склавиатуры вводится десять целых чисел(до100) ,найти произведение тех из них которые делятся на три или которые оканчиваются тройкой
Показать ответ
Ответ:
AnnaXolcman3003
02.10.2020 23:45
Var ar:array[1..10] of integer;
i,k:integer;
begin;
k:=1;
for i:=1 to 10 do
begin;
readln(ar[i]);
if (ar[i] mod 3=0) or (ar[i] mod 10=3) then k:=k*ar[i];
end;
writeln('Result:',k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
polina1336
21.11.2020 02:32
сколько раз выполняется цикл? запиши, чему будет равна переменная (2) a= 3; b = 7, в то время как a b: a += 1 сколько раз-? а=? a = 4; b = 6, в то время как a b: a...
Serega20032017
20.07.2022 12:43
Составить программу в паскале! дано трехзначное число, если крайняя цифра справа кратна 3, то заменить квадратом, если средняя цифра равна 0, то увеличить на 2 и вывести...
nikitos196
02.04.2020 23:50
Написать программу в паскале вычисляющую n факториал....
Andrew12331
04.12.2020 19:22
Втаблице запросы к поисковому серверу. расположите номера запросов в порядке убывания количества страниц, которые найдет поисковый сервер по каждому запросу. для обозначения...
KrisChuHD
04.12.2020 19:22
Поменять местами элементы массива c() , равноотстоящие от начала и конца массива....
kochanovaleksa
25.03.2020 05:11
Информационное сообщение объемом 8192 бита состоит из 1024 символов . каков информационный вес каждого символа. 1)16 2)3 3)10 4)8...
куколку
12.01.2020 16:37
До травної системи входять такі органи: А)стравохід Б)трахея В)печінка Г)нирки ТЬ!!...
Lizard1999
12.01.2020 16:37
НЕ НАДО РЕШАТЬ СКАЖИТЕ ПО КАКОЙ ФОРМУЛЕ НАДО ДЕЛАТЬ 838. Гиря, покоящаяся на верхнем конце спиральной пружины, укрепленной на подставке, сжимает ее на х = 2 мм. Но...
ЗаНоЗа169
25.01.2022 22:42
Три стрелка делают четыре одновременных залпа по одной и той же цели. Вероятности поражения целей равны соответственно р1 = 0,9, р2 = 0,8, р3 = 0,7. Написать закон...
Astronavtka
21.11.2020 10:42
Перший твір, який приніс успіх О.Генрі мав назву: а) «Острів доктора Моро»;б) «Машина часу»;в) «Війна світів»....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,k:integer;
begin;
k:=1;
for i:=1 to 10 do
begin;
readln(ar[i]);
if (ar[i] mod 3=0) or (ar[i] mod 10=3) then k:=k*ar[i];
end;
writeln('Result:',k);
end.