Question

Из промежутка от 15 до 35 найди количество чисел, которые делятся на 6.

Помогите.
Нужно написать на PascalABC

Answer 1

program divisible_by_6;

var

 i, count: integer;

begin

 count := 0;

 for i := 15 to 35 do

 begin

   if i mod 6 = 0 then

     count := count + 1;

 end;

 writeln('Количество чисел, делящихся на 6 в промежутке от 15 до 35: ', count);

end.

Эта программа использует цикл for для проверки каждого числа в промежутке от 15 до 35 на делимость на 6. Если число делится на 6 без остатка (i mod 6 = 0), то увеличивается счетчик (count). В конце программа выводит количество найденных чисел, делящихся на 6.