Бонифаций
4 год назад
Pascal ABCВ диапазоне от 1 до К вывести все нечётные числаПожалуйста посчитайте пожалуйста ((
ОТВЕТЫ
Вера
Oct 24, 2020
//PascalABC.Net 3.2
begin
for var i:=1 to readinteger ('Введите K: ') do if (i mod 2)=1 then print (i);
end.
begin
for var i:=1 to readinteger ('Введите K: ') do if (i mod 2)=1 then print (i);
end.
486
Смежные вопросы:
