1.напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0,d=7,an=98.
2.с клавиатуры вводится целое положительное (может быть равно 0) число с, не превышающее 30 000. напиши программу, которая считает и выводит на экран количество нечётных цифр числа с.
pascal
===== PascalABC.NET =====
begin
// 1
Range(0, 98, 7).Println;
// 2
var n := ReadInteger('n =');
var k := 0;
while n > 0 do
begin
if Odd(n mod 10) then
k += 1;
n := n div 10
end;
k.Println
end.