Pascal abc в диапазоне от 1 до к вывести все нечётные числа ((

vladisnal2 vladisnal2    3   23.08.2019 00:50    0

Ответы
sedvl sedvl  05.10.2020 13:39
//PascalABC.Net 3.2
begin
for var i:=1 to readinteger ('Введите K: ') do if (i mod 2)=1 then print (i);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика