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

Определите и выведите на экран количество чисел в промежутке от 100 до 1000 делящихся без остатка одновременно на 5 и 21 заранее

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Davidkontrasity

03.02.2021 16:46

Я раз . (Python) Тема: Вычисления Упражнение на скриншоте...

grrrrrrrrrr

09.12.2020 11:33

1)В текстовом редакторе по теме «Компьютерное представление текстовой информации» составьте ТЕСТ из 5 во к каждому во по три варианта ответов, один верный. Оформить тест...

диди65

13.01.2021 17:28

Объём ЖМД составляет п Гбайт. На дискете размещаются два файла, состоящих из l1 и l2 знаков соответственно (считать, что один знак занимает 1Байт). Определить, сколько...

ДуанбекМариям

23.07.2022 20:08

Составьте и запишите алгоритм решения задачи в графическом и словесно-формульном виде. Напишите программу на алгоритмическом языке. Исходные данные: Даны два ненулевых...

angelvkedah9

25.03.2021 12:16

Реши задачу, используя программу MS Excel. отправилась в магазин за покупками. Девушка купила пачку молока за 37 руб., две упаковки замороженных овощей, заплатив за каждую...

roma1918

03.06.2021 10:03

Пусть перо Чертежника находиться в точке (х,у)ПОСЛЕ ВЫПОЛНЕНИЯ КОМАНДЫ СМЕСТИТЬСЯ В ТОЧКУ (4,8)В КАКОЙ ТОЧКЕ ОКАЖЕТСЯ ПЕРО ЧЕРТЕЖНИКА ?...

melesineduard

30.10.2020 01:25

Нужна формула для возведения x в степень типо должна быть =степень(-0,5;-1/2) но выдаёт ошибку. какая должна быть???...

mamaevseenko

20.12.2021 20:29

Как называется команда и результат обращения пользователя к СУБД для поиска, удаления, сортировки, добавления и обновления данных? ответ введите строчными буквами....

toly22

19.09.2020 10:37

9. Знайти кількість парних елементів, що знаходяться на побічній діагоналі у B матриці А(7;7)...

lyntik228

05.08.2022 08:25

Некоторый звуковой файл был сохранён без сжатия данных в формате 2.1 (3 канала), с частотой дискретизации 64 КГц. Длительность записи – 84 секунды. Размер файла был равен...

Ответ:

artem880

09.07.2020 21:55

Var i,k:integer;
begin
k:=0;
for i:= 100 to 1000 do if (i mod 5=0) and (i mod 21=0) then k:=k+1;
write(k)
end.

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

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

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