Сотавьте программу которая вычесляет количество кратная 4м в диапозон от 300 до 400.На языке паскаль.

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

program CountMultiplesOf4;

var
i, count: integer;

begin
count := 0;

for i := 300 to 400 do
begin
if i mod 4 = 0 then
count := count + 1;
end;

writeln('Количество чисел кратных 4 в диапазоне от 300 до 400: ', count);
end.