program z1;
var m,n,k,i: integer;
begin
writeln('Введите два числа m и n (m < n)');
write ('m = ');
readln (m);
write ('n = ');
readln (n);
k:=0;
for i := m to n do if i mod 2 <> 0 then k:=k+1;
writeln (k,' нечётных чисел лежат в диапазоне от ',m,' до ',n)
end.
Объяснение:
Считается, что m и n входят в диапазон.
