Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
VikaPika561
06.10.2020 19:52 •
Информатика
Напишите для паскаля,. с клавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17.
Показать ответ
Ответ:
violagugu
01.10.2020 13:00
Program chik;
var k,i,s,a:integer;
begin
s:=1;k:=0;
for i:=1 to 17 do
begin
read(a);
if (a mod 17<>0)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then write(s)else write(0);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Alisa27Alisa
05.06.2020 04:48
Информационный объём текста, подготовленного с компьютера, равен 35 мб. сколько символов содержит этот текст?...
amid2003
05.03.2023 05:31
Продам аккаунт за 500тг или за 100рублей все эпики все сверхредкие и все редкие 3мифика 1 лега только по вацапу 87476025029...
Arina150605
26.09.2022 07:04
Одна дорога длиннее другой на 49 км. Если длины этих дорог сложить, то получится 309 км. Вычисли длины этих дорог....
ггггггггггггжз
26.09.2022 07:04
В 2010 г. праздновали 200 лет со дня рождения известного белорусского художника Ивана Хруцкого В каком году и в каком веке родился Иван Хруцкий?...
GHTU
26.09.2022 07:04
В бумажном пакете лежат 5 белых шаров и 2 чёрных шара. Какое наименьшее число шаров надо достать из пакета, чтобы среди них обязательно оказался хотя бы один белый шар?...
trostsnska
26.09.2022 07:04
У мамы на банковской карточке 1000000 р. Мама заплатила 130000 р. за коммунальные услуги, 50000 р. — за электричество. Хватит ли остатка денег на карточке...
mzhenyak1999
26.09.2022 07:04
На изготовление четырёх одинаковых станков пошло 12 т 6 ц металла. Какова масса двух таких станков?...
Сателла1
26.09.2022 07:04
Длина пола в коридоре 80 дм, а ширина — 9 дм. Линолеумом застелили третью часть этого коридора. Найди площадь незастланной части пола....
datskivvera
26.09.2022 07:04
Туристы купили палатку, рюкзаки и спальные мешки. Половина стоимости покупки была истрачена на палатку. На оставшуюся часть денег купили 2 рюкзака...
jvhhvcx
26.09.2022 07:04
Семья сняла со счёта в банке 600000 р. и купила люстру и стол. Цена люстры составила треть этой суммы, а цена стола — половину этой суммы. Сколько рублей осталось?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var k,i,s,a:integer;
begin
s:=1;k:=0;
for i:=1 to 17 do
begin
read(a);
if (a mod 17<>0)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then write(s)else write(0);
end.