Question

Вывести первые N натуральных чисел, сумма цифр которых нечётная. Паскаль. Через вложенные циклы со счетчиком.

Answer 1

Var n,i,a,k,s:integer;
begin
write('n = ');
readln(n);
k:=0;
i:=0;
while k<n do
 begin
 i:=i+1;
 s:=0;
 a:=i;
 while a>0 do
  begin
  s:=s+a mod 10;
  a:=a div 10;
  end;
 if s mod 2 <> 0
  then begin write(i,' '); k:=k+1; end;
 end;
end.

Пример:
n = 20
1 3 5 7 9 10 12 14 16 18 21 23 25 27 29 30 32 34 36 38