Question

Срочно. Выведите все числа от 15 до 30, которые делятся на 3 без остатка. Причем на экране они должны идти в обратном порядке. Паскаль. Попроще.

Answer 1

var i:integer;

begin

for i:=30 downto 15 do

if i mod 3 = 0 then write(i,' ');

end.