Pascal ABC В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((
Pascal ABC
В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.Net 3.2
begin
for var i:=1 to readinteger ('Введите K: ') do if (i mod 2)=1 then print (i);
end.
Не нашли ответ?
Похожие вопросы