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

Вывести все числа от 1 до 1000, которые: -- кратны 3 и 5

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

↓

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

AlenaRayskaya

27.02.2022 12:39

Дан текст. выбери верную конструкцию....

Мальчик004

23.01.2020 03:15

Файл размером 100 Кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же...

Arina200444

06.11.2020 10:25

Заполните список случайными числами и выполните реверс для части списка между элементами с индексами a и b (включая эти элементы) в пайтоне...

angelina459

24.12.2020 15:35

Напишіть повний інформатичний розв язок...

Dan4ik7211

24.03.2023 00:59

Дана лінійна таблиця розмірності N. Знайти кількість непарних чисел. Формат вхідних даних У першому рядку вхідного потоку задано N (1 N 100), у другому через пропуск...

amekekes

15.10.2022 06:55

Данных в электронной таблице-это записей по значениям одного из полей...

tinita15

01.11.2020 05:06

Для какого из указанных значений числа x истинно выражение (x 3) и ((х 2) или (х !...

GgEz11134

02.10.2021 05:43

Нужна по формулам в excel фото тут (p.s нужно сделать 4 , в том плане что формулы вписать)...

alina13lina87

15.05.2023 12:42

Cкорость передачи данных между мкс и землёй 144 бит в секунду за сколько секунд можно передать текст космонавтам если один символ занимает 2 байта поставлю и лучший...

feitlol

15.05.2023 12:42

На … расположены магистрали (шины), к которым подключаются все внутренние устройства компьютера. о каком устройстве идет речь?...

Ответ:

данила0625

20.07.2020 23:55

Var a:integer;
begin
for a:=1000 downto 1 do begin
if (a mod 5 = 0) and (a mod 3 = 0)
then writeln(a);
end;
end.

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

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

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