Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Фаай
28.05.2020 19:35 •
Информатика
Вычислить произведение чисел, кратных 13, из 100 придуманных компьютером случайных чисел в диапазоне 0-100
Показать ответ
Ответ:
Volodyaaaa
24.09.2020 09:45
Var
i, k: integer;
pr: int64;
begin
randomize;
pr := 1;
for i := 1 to 100 do begin
k := random(101);
write(k, ' ');
if (k mod 13 = 0) and (k <> 0) then
pr := pr * k;
end;
writeln;
write(pr);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ScourgeTheCat
11.11.2020 22:28
Прога на паскале. ввести элемент, ввести массив. если в массиве присудствует этот элемент, то ничего не делаем. если его нет, то нужно вставить его в середину массива...
sempai1
20.06.2021 04:07
Сообщение о том, что из коробки достали красный карандаш несет 2 бита информации. сколько карандашей в коробке?...
nazarkooo
30.01.2021 03:18
Вычислите сумму последовательности y=1+1/2+1/3+/20 !...
Влад27128
30.07.2021 05:50
Обязательно нужна программа гражданин 1 января открыл счет в банке вложив 100000 рублей. каждый месяц размер вклада увеличивается на 3% от имеющейся суммы. составьте...
лаброри
05.10.2020 01:02
8. на трех мешках наклеены надписи : рис, сахар, мука или сахар. что в каждом мешке, если известно, что все наклейки не верны?...
muhkirill2017
18.01.2023 22:42
Музыкальный фрагмент был записан в стерео ( двухканальной записи), оцифрован и сохранен без использования сжатия данных. размер полученного файла - 60 мб. затем этот...
KRAUSE1
29.09.2020 17:59
Уисполнителя вычислитель две команды, которым присвоены номера: 1. зачеркни слева 2. возведи в квадрат первая из них удаляет крайнюю левую цифру числа на экране,...
Bananthic
18.12.2021 11:07
Опишите процесс выполнения операторов присваивания а: =3; b: =4; а: =а+b...
AutWezer
18.12.2021 11:07
Даны два вектора a(10) и b(10). вычислить произведение соответствующих элементов массивов. результат поместить в вектор x(10) и найти его минимальный элемент....
Milokgre
18.12.2021 11:07
Вычислить сумму натуральных чисел от 5 до n...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, k: integer;
pr: int64;
begin
randomize;
pr := 1;
for i := 1 to 100 do begin
k := random(101);
write(k, ' ');
if (k mod 13 = 0) and (k <> 0) then
pr := pr * k;
end;
writeln;
write(pr);
end.