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

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

Ответ:

умный321

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 оценок)

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

Dorian17

04.06.2023 13:21

Программирование алгоритма. Урок 2 Выбери опцию, которая задает название для созданной кнопки.textbackground (bg)heightfont...

сонясонясоня1

30.09.2022 16:38

Які бувають посилання на клітинки ? А)простимиБ) відноснимиВ)складними Г)абсолютнимиД)комбінованимиУ табличному процесорі Microsoft Exel 2010 знайти та додати до формули функцію...

SpawNis

12.02.2023 08:18

Создайте уникальный логин из букв GUJAERINPO...

sapesalex

28.11.2021 15:48

1. В каком меню находится Кнопка Гиперссылка ?*ВставкаГлавнаяСсылкиРассылки...

Demel

14.09.2020 13:41

Составить свой компьютер будущего...

avasjanom

29.10.2020 01:30

Що таке вкладене розгалуження ответтя ...

kamilapark1

07.11.2020 00:43

Написать на паскале дана матрица 3 на 3. найти количество элементов матрицы кратных 5...

Балерина2017

07.11.2020 00:43

Выполнить перевод из одной системы счисления в другую 1)число 111100 из двоичной в десятичную 2)число 19 из десятичной в двоичную 3)число 17,25 из десятичной в двоичную 4)число...

krubl

25.03.2020 07:14

Написать программу на pacal : 1.дано два ненулевых числа проверить истинность высказывания числа имеют разные знаки . 2. дано два целых числа проверить истинность высказывания...

андряков1103

25.03.2020 07:14

Какие вы знаете переферийные устройства?...

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

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