tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры вводится десять
Склавиатуры вводится десять целых чисел(до100) ,найти произведение тех из них которые делятся на три или которые оканчиваются тройкой
мирас68
2 09.07.2019 21:40
1
Ответы
torgor2017
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
гарамьбм
04.12.2020 14:34
Можно ли поменять подписи данных у готовой диаграммы? Каким образом?...
дильназ152
04.12.2020 14:35
Написать программу: Дан массив чисел. Найти наибольший элемент, поставить его первым...
makshardin17
04.12.2020 14:35
сколько символов содержит сообщение, записанное с символьного сообщения,если его объем составляет 60 байт...
nastakosmos12
04.12.2020 14:35
Перелічіть ключові слова мови програмування Python, які не можуть використовуватися як назви змінних....
ersyndosmaganbet
04.12.2020 14:35
Обработка растровых изображений. Урок 2 Определи цвет, который был использован для инструмента «Ластик»....
Агата1713
04.12.2020 14:35
Как в электронных таблицах классифицыруется типы данных и выполняется автоматическое заполнение данными...
Россия111111111111
04.12.2020 14:36
Решить задачу (8класс) с Алгебры Логики, расписать как и что делается....
EvaKaa
04.12.2020 14:36
Определите информационный объем графического файла,если размер картинки 200*300 и 16 цветов,ответ дайте в байтах...
deniskohan59
04.12.2020 14:37
Нужен ответ в месте с решением...
Kamikatze5
04.12.2020 14:54
1 дайте матиматическое определение понятия функция 2 какова основная функция приложения MS Exsel3 Какие категории функций имеются в MS Exsel4 какие существуют для...
Популярные вопросы
Вбанк, который даёт 2,2% годовых, положили 20000 р. вычисли, через...
1
Укажите область значений функции: y = - (x + 1)² + √2...
1
Как правильно написать? на три месяца погода была жаркая, редко...
2
Доказать тождество tg^2a-sin^2a=sin^2a*tg^2a...
1
Написать краткий пересказ ,,легенда о данко и ,,старуха изергиль...
2
Очем рассказ к.г. паустовского растрепанный воробей ? кратко надо...
1
622. знайдіть об єм куба, ребро якого дорівнює: а) 6 дм; б) 5...
1
Решить пример найти все корни уравнения: log17(17−x)=−2....
3
ответье на вопрос : почему ты гордишься украиной?...
3
Найти наименьшее целое число, удовлетворяющее неравенству: (5-√26)x...
2
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.