Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yuikire
09.04.2022 18:38 •
Информатика
Напишите для паскаля,. с клавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17.
Показать ответ
Ответ:
nikmeldov
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 оценок)
Популярные вопросы: Информатика
55555336
12.10.2020 02:51
1. дан массив, состоящий из 15 элементов. элементы вводятся случайным образом. найти количество элементов, кратных 3. (промежуток от 10 до 30) 2. дан массив, состоящий из 10...
09Катя99
30.01.2020 15:16
Знайдіть суму всіх натуральних двохзначних чисел, які закінчуються на цифру это информатика паскаль...
AlinaZimina2003
24.02.2023 12:29
Одгадайте ребус на казахском...
Ekaterina2348
09.04.2023 21:21
Какую историю о Людмилы придумал Фарлаф для князя Владимира?...
Dooolche
19.07.2021 06:33
¯\_(ツ)_/¯ необходима , заранее благодарен....
dipo1234529
28.03.2022 09:49
https://www.calormen.com/jslogo/https://fmslogo.sourceforge.io/workshop/color.shtml...
Nasta11111112356
01.01.2023 15:19
Напишіть програму в cc+, яка запитує натуральне число. Якщо це число закінчується на 9, то виводить “YES”, а в іншому випадку - “NO”....
WIS1
13.05.2020 16:16
Определите правильный вариант формулы в Питоне (2 правильных ответа)Требуется ответ. Несколько вариантов выбора: print (42)+(8) print (42+8) print 42+8 int (42-8) a=5 b=4 c=a**b...
vikapuhtina
18.09.2020 11:34
Пользователь вводит три числа. Найти сумму тех чисел, которые делятся на 5. Если таких чисел нет, то вывести error. (Подсказка. Например, чтобы проверить делимость на 5 нужно...
Nuraika777
01.02.2021 18:24
решить задачи через Visual Basic 1) Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n. Решить задачу используя циклическую конструкцию for. 2)Среди чисел 1, 5...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.