Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vsjhffdsg
29.11.2021 21:19 •
Информатика
Написать программу,которая для целых чисел из диапазона [2; 40] выводит на экран только те, которые делятся на 7 и на 3.
Показать ответ
Ответ:
dvika12
08.10.2020 19:57
Если я правильно понял, то делится сразу и на 7 и на 3
var i:integer;
begin
for i:=2 to 40 do
begin
if(i mod 3=0) then if (i mod 7=0) then write(' ',i)
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
АлексейGrigorjew
18.01.2021 06:50
Арифметикалық амалдар мен оларды сандарға қолдану нәтижесі арасындағы сәйкестікті белгіле. 1. 6**2 12. 17//4 363. 17%4 4 осыларды жалғаңдар. Мысалы: 6**236-ға шығар,...
obilan228
23.01.2023 05:34
Бейнежазба. 1-сабақ Видеофайл жолындағы барлық қалталарды анықта.  Дұрыс жауап саны: 2 Бейнелер Музыка Суреттер Бейнелер үлгісі Кітапханалар Құжаттар...
menoralle
03.07.2020 14:01
Написать программы на паскале!...
Sark23
07.07.2020 14:48
Письмо от лица Бауыржан Моушулы 《Моим друзьям...
asca82
15.01.2023 16:14
В кодировке unicode на каждый символ отводится два байта. Определите информационный объем текста из 70 символов в этой кодировке...
Ramaz7771
13.01.2020 22:49
Последовательность Фибоначчи определяется так: ϕ0=0,ϕ1=1,ϕn=ϕn−1+ϕn−2 Дано натуральное число A. Определите, каким по счету числом Фибоначчи оно является, то есть...
rayyana14
14.06.2022 03:35
Создать файл действительных случайных чисел. Заменить в файле каждый элемент, кроме начального и конечного, на его среднее арифметическое с предыдущим и последующим...
LightDarkness
01.04.2020 16:24
Отвечаем на во Что такое библиотека в Python?2. Как осуществляется подключение библиотеки РуGame?3. В чем заключается функция библиотеки РуGame?4. Перечислите модули...
zaxar3512
27.01.2023 18:59
ребят Информатика 8 класс...
Юлькач
23.06.2021 05:59
Дан код с номером. Определи,какой это символ:управляющий или изображаемый. Код с номером 96...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i:integer;
begin
for i:=2 to 40 do
begin
if(i mod 3=0) then if (i mod 7=0) then write(' ',i)
end;
end.