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