Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
malina20023
18.12.2020 15:51 •
Информатика
Найти произведение всех чисел от 1 до 100 делещехся на 7 но не делещехся на 3 с цикла while или for
Показать ответ
Ответ:
Жанночка305
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 оценок)
Популярные вопросы: Информатика
batareya666
18.10.2021 04:35
Нужно начертить и абразмерить в автокаде. (вариант 16)....
Mrkeu
20.11.2021 22:35
Какие системы программирования вам известны? опишите их назначение....
taniaselikova
29.01.2020 21:44
Напишите программу, которая получает на вход три целых числа, по одному числу в строке, и выводит на консоль в три строки сначала максимальное, потом минимальное, после чего оставшееся...
kozarmarjna15
11.05.2021 11:58
Это на abc pascal. дано вещественное число x и целое число n ( 0) .найти значение x –x3/3 + x5/5 – + (–1)nx2n+1/(2n+1).на фото 12 вар (1 столбец)...
LAMuK
14.11.2022 10:28
Нужна , 100 необходимо написать программу по ниже. цифра 8 в скобках рядом с y,p или s обозначает количество сотрудников учреждения. программу писать на python...
ychenicaa7
01.07.2021 01:55
Без знания основ невозможно построить надежного робота. одним из важных разделов механики – кинематики – является вращательное движение твердых тел. в этом тебе предстоит рассмотреть...
Snezhok1407
05.08.2020 14:21
Водной из кодировок unicode каждый символ кодируется 16 битами. петя написал текст (в нём нет лишний пробелов): ель, кедр, сосна, кипарис, лиственница, можжевельник-хвойные растения...
Yrikrylko
12.05.2020 23:59
Информатика 6 класс.автор: басова.а.а. оформить практическую работу номер 5 ...
trekstreks919ozyvc1
16.08.2020 23:42
Примеры абстрактного мышления...
Илья2389
20.08.2021 20:24
Как сохранить текст программы pascal abc.net? какова структура программы на языке pascal abc.net? какое назначение переменных number1 number2 result ? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.