Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
sona673
11.05.2021 20:21 •
Информатика
Найти произведение всех чисел от 1 до 100 делещехся на 7 но не делещехся на 3 с цикла while или for
Показать ответ
Ответ:
catnoir227
06.10.2020 03:27
Var
P:real;
A:byte;
Begin
P:=1;
For A:= 1 to 100 do
if (A mod 7 = 0)and(A mod 3 <> 0) then P:=P*A;
WriteLn('P = ',P);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
lyubasha1988
13.10.2022 09:56
с задачкой на с++ Объединение последовательностейДаны две бесконечных возрастающих последовательности чисел A и B. i-ый член последовательности A равен i^2. i-ый член последовательности...
guluamovalera
20.05.2020 05:43
Что определяет для массива X[1..n, 1..m] следующий алгоритм: S:= 0; For i:= 1 to n do For j:= 1 to m do If X[i, j ] 0 then S:=S+X[i, j ]; а минимальный элемент массива;...
elleonoel
24.10.2022 16:22
Как вы считаете какой алгоритм здесь написан cin e b; for(int c=0; c e; ++C); a*=b...
SVT38
06.06.2022 15:17
Минимальное количество бит, потребуется для кодирования положительных чисел, меньше 60....
VitaKoroleva851
08.10.2021 01:39
Написать алгоритм программы в виде блок-схемы : 1. Меньшее из двух заданных чисел возведите в квадрат, а большее уменьшите в 2 раза.Если числа равно, то найдите их сумму....
rethd
23.07.2021 04:59
Дана одна из задач кибернетики. Определи, теоретической или практической является данная задача. Оптимизация: решение во как при заданных условиях добиться такой организации...
PalkaDavalka
21.08.2022 20:01
Гиперсілтеме типтерін сәйкестендір...
ilyator
25.06.2021 16:04
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы и среднего арифметического введённых...
StesnyaШka
16.05.2023 01:54
Дайте стоимостную оценку затрат на внедрение ГПС в течение расчетного периода — 10 лет. Годовые издержки у потребителя вначале составят 2,5 млн. руб., а через 5 лет увеличатся...
Ральфф
05.03.2021 10:16
Які риси характеру свідчать про непересічність Юлія Цезаря? Чим він здобув повагу и відданість солдатів? Які військові перемоги піднесли його авторитет? Яким є ваше ставлення...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
P:real;
A:byte;
Begin
P:=1;
For A:= 1 to 100 do
if (A mod 7 = 0)and(A mod 3 <> 0) then P:=P*A;
WriteLn('P = ',P);
End.