Войти Регистрация Спроси ai-bota

Вывести на экран все числа делящиеся на 3 или на 7 в промежутке от 1 до 1000

Ответ:

Vovavelchenko12

23.05.2020 15:21

var i:integer;

begin

for i:=1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

0,0(0 оценок)

Популярные вопросы: Информатика

mridrazov

24.07.2020 20:40

Можете ответить зачем нужен блок информатика 5 класс...

умный2006

21.12.2022 14:12

Окроликах или числа фибоначчи. последовательность чисел фибоначчи образуется так: первое и второе числа в последовательности равны 1, каждое последующее равно сумме...

SuperNisas

20.02.2021 09:47

1) выписать цифры числа n, если эти цифры =4 и =8 2) найти сумму цифр числа n, если цифры =4, но =8 pascal abc...

larisavenzel

20.02.2021 09:47

Скажите как открыть файл в zip, на него есть код 20 знаков....

KarinaRihter

20.02.2021 09:47

Как разшифровать md5 коды хоть за 12 часа. но чтоб метод работал...

меркульева

20.02.2021 09:47

Дан целочисленный массив состоящий из 30 элементов. вывести кол-во положительных,отрицательных и нулевых элементов. программа нужна для паскаль abc, желательно объяснить...

linagalkinaa1

04.04.2021 18:25

С клавиатуры вводится 8 целых чисел. С цикла for найди количество положительных чисел...

шкуренок46

21.04.2020 23:54

Приведите примеры а пустого множества Б множества состоящего из одного элемента в множество состоящее из 10 элементов Г бесконечное множество...

nat102sult

15.02.2020 19:11

Какой объём информации больше? 1 мегабайт 1023 килобайт 1025 байт 1026 бит...

Alina228321234

05.09.2020 09:50

. 5) В папке находится 6 файлов: gorod.map gorizont.mp3 • skorogovorki.mp4 gorenie.mp4 gora.mp3 egor.mp3 Сколько файлов будет выбрано по маске: 1. *gor*.mp* 2. .m*...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку