Вывести все числа от 1 до 1000, которые: -- кратны и 3 и 5 и сделай чтобы цикл начинался с 1000, а заканчивался на 1 т.е. чтобы в первой итерации цикла i было равно 1000 а в последней - 1 итерация цикла - один прогон цикла

Ответы:
Оля Емцева
08-11-2014 19:32

var a:integer;beginfor a:=1000 downto 1 do beginif (a mod 5 = 0) and (a mod 3 = 0) then writeln(a);end;end.предупреждаю что время исполнения программы на моём компе 9.29 сек.

Также наши пользователи интересуются:

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вывести все числа от 1 до 1000, которые: -- кратны и 3 и 5 и сделай чтобы цикл начинался с 1000, а заканчивался на 1 т.е. чтобы в первой итерации цикла i было равно 1000 а в последней - 1 итерация цикла - один прогон цикла» от пользователя Miloslava Krutovskaya в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!