Ввести целые положительные числа N и k, вывести на экран все нечетные числа принадлежащие отрезку [1;N], кратные k.
Ввести целые положительные числа N и k, вывести на экран все нечетные числа принадлежащие отрезку [1;N], кратные k.
Гость
Ответ(ы) на вопрос:
ГостьКакой язык? 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.
Не нашли ответ?
Похожие вопросы