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

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

Показать ответ

Ответ:

dgutjhththgjtjth

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

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

Alino4ka58258

22.03.2020 05:11

Что из нельзя использовать в качествеимени файла или папки и почему,подчеркнем возможные имена: решение ,почему,мой адрес,номер дома,г.киев,1,2,3,вопрос/ответ,колобок...

Алинаfox11

22.03.2020 05:11

Переведите число 100111, в десятичную систему счисления....

kostromitind

05.11.2021 14:30

Скажите как открыть или найти диалоговое окно ?...

svitlana122

26.03.2023 00:55

При угадывании целого числа в некотором диапазоне было получено 6 битов информации. сколько чисел содержит этот диапазон?...

Eka228

01.01.2021 05:20

Уменя 100 братьев. младшему 1000 лет, а старшему 1111лет. старший учиться в 1001 классе. может такое быть? ! на завтра надо!...

12Куки35

03.07.2022 17:35

Составить программу которая проверяет или равные 3 введенные числа и выводит на экране соответствующее сообщение (равные или неравные)...

198565

05.03.2020 10:34

Спробуйте намалювати відрізок одразу післявідкриття GIMP. Чому редактор не реагує наваші дії?...

анабель125

29.10.2021 10:35

Чому вважається, що програми, написані на компільованих мовах, працюють повільніше ніж написані на інтерпретованих?...

laikover

08.12.2020 19:51

Нужна . решить цепочку: 1. калий калий гидроксид калий карбонат калий сульфат барий сульфат. 2. железо ферум (3) хлорид ферум (3) гидроксид ферум (3) оксид - железо....

Shbtura01

08.12.2020 19:51

Площадь прямоугольной клумбы 4 квадратных метра. длина клумбы равна 2м 50см. определи ширину клумбы и ее периметр....

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

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