Ввести целые положительные числа N и k, вывести ** экран все нечетные числа принадлежащие...

Question

Ввести целые положительные числа N и k, вывести на экран все нечетные числа принадлежащие отрезку [1;N], кратные k.

Answer 1

Какой язык? Pascal?

var n,k,i: integer;
begin
readln (n);
readln (k);
for i:=1 to n do
begin
if ((i mod 2)=1) and ((i mod k)=0) then
writeln (i);
end;
end.