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.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать цикл с обратным счетчиком.

Вот код программы:

program DivisibleByThree;
var
  i: integer;
begin
  for i := 30 downto 15 do
  begin
    if i mod 3 = 0 then
      writeln(i);
  end;
end.

В данной программе мы используем цикл `for` с обратным счетчиком, начиная с числа 30 и заканчивая числом 15. Внутри цикла проверяем, делится ли текущее число `i` на 3 без остатка, используя оператор `mod`. Если делится, то выводим число на экран с помощью процедуры `writeln`.

Таким образом, на экране будут выведены все числа от 30 до 15, которые делятся на 3 без остатка, в обратном порядке: 30, 27, 24, 21, 18, 15.