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

Question

Информатика

Луиза

2 ноября, 04:23

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

+5

Ответы (1)

Знаете ответ на вопрос?

Стенюша · 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.