Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
555Sofiya5555
21.02.2021 09:56 •
Информатика
Напишите для паскаля,. с клавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17.
Показать ответ
Ответ:
1090000
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 оценок)
Популярные вопросы: Информатика
arnalismailov
14.02.2022 22:42
В каком наборе есть лишнее устройство? A- клавиатура, сканер, мониторB- монитор, принтер, звуковые колонки.C- жёсткий диск, дискета, компакт-диск.D- все наборы не содержат лишних устройств...
Куку1560
06.11.2020 19:11
Проанализируйте следующий цикл. В чём его особенность? while a c:=a+b;...
таня2024
14.06.2022 06:48
Укажите порядок выполнения операций в выражении укажите порядок следования всех 5 вариантов ответа: выполняется умножение и деление. вычисляются выражения в скобках. изменение знака,...
porshe04
18.11.2022 19:37
Определите, возможно ли установить на диск d: вашего пк программный продукт размером 1.7 гб. решение напишите в отчет....
Коsмoc
06.02.2021 16:18
Решите : на flash- носителе 1 мб свободного места. сколько файлов размером 123 кб поместится еще на flash-носитель? ...
123321456654sego
24.01.2021 12:37
Кто решит К.Р по молекул. биологии от в 10 заданиях по 100. Контрольная будет 9:30 по Киеву 14.04.22г. Если есть кто отпишите в лс или сюда в коменти. Бали после работи...
artem16021artemka16
27.12.2021 03:12
Здравствуйте сколько будет 8+7*(9*8)*35, подскажите...
юра416
22.09.2020 08:20
Лесного морфологический разбор о своём морфологический разбор типо вот так...
Nbveh1234567890
22.03.2022 08:10
Составить текс по плану...
lolkekcheburek2281
19.05.2021 15:06
ОЧЕНЬ реклама на тему великие путешественники Зощенко...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.