Составьте программу на языке Паскаль. Среди 15 случайных чисел из диапазона (-25;15) найти количество чисел, делящихся на 5, но не делящихся на 10.

Предыдущий
вопрос Следующий
вопрос

program CountNumbers;
var
i, number, count: integer;
begin
count := 0;
Randomize;
for i := 1 to 15 do
begin
number := Random(40) - 25;
if (number mod 5 = 0) and (number mod 10 <> 0) then
count := count + 1;
end;

writeln('Количество чисел, делящихся на 5, но не делящихся на 10: ', count);
end.