Вывести все числа от 1 до 1000, которые: -- кратны и 3 и 5 и сделай чтобы цикл начинался с 1000, а заканчивался на 1 т.е. чтобы в первой итерации цикла i было равно 1000 а в последней - 1 итерация цикла - один прогон цикла
Вывести все числа от 1 до 1000, которые: -- кратны и 3 и 5
и сделай чтобы цикл начинался с 1000, а заканчивался на 1
т.е. чтобы в первой итерации цикла i было равно 1000
а в последней - 1
итерация цикла - один прогон цикла
Гость
Ответ(ы) на вопрос:
Гостьvar a:
integer;
beginfor a:=1000 downto 1 do begin
if (a mod 5 = 0) and (a mod 3 = 0)
then writeln(a);
end;
end.
предупреждаю что время исполнения программы на моём компе 9.29 сек.
Не нашли ответ?
Похожие вопросы