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

и сделай чтобы цикл начинался с 1000, а заканчивался на 1

т. е. чтобы в первой итерации цикла i было равно 1000

а в последней - 1

итерация цикла - один прогон цикла

Question

Информатика

Аврора

19 января, 16:02

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

и сделай чтобы цикл начинался с 1000, а заканчивался на 1

т. е. чтобы в первой итерации цикла i было равно 1000

а в последней - 1

итерация цикла - один прогон цикла

+3

Ответы (1)

Знаете ответ?

Хариесса · Answer 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 сек.