Pascal ABC
В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((
Ответы на вопрос
Ответил Студэнt
0
//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.
Новые вопросы