Вывести первые N натуральных чисел, сумма цифр которых

нечётная. Паскаль. Через вложенные циклы со счетчиком.

Question

Информатика

Никола

9 июля, 15:09

Вывести первые N натуральных чисел, сумма цифр которых

нечётная. Паскаль. Через вложенные циклы со счетчиком.

+1

Ответы (1)

Знаете ответ на вопрос?

Нил · Answer 1

Var n, i, a, k, s:integer;

begin

write ('n = ') ;

readln (n) ;

k:=0;

i:=0;

while k
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

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

Вывести первые N натуральных чисел, сумма цифр которых

нечётная. Паскаль. Через вложенные циклы со счетчиком.