Предмет: Информатика,
автор: sabinatar
Pascal ABC
В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Биология,
автор: hodacijtrup620
Предмет: Биология,
автор: hodacijtrup620
Предмет: Алгебра,
автор: Zorbinaaa
Предмет: Математика,
автор: Hacker6605
Предмет: Биология,
автор: Аноним