Question

1.Напиши программу, которая выводит на экран (в одну строку через пробел) элементы арифметической прогрессии с a1=0,d=7,an=98.
2.С клавиатуры вводится целое положительное (может быть равно 0) число С, не превышающее 30 000. Напиши программу, которая считает и выводит на экран количество нечётных цифр числа С.

Pascal

Answer 1

===== 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.