Вывести первые N натуральных чисел, сумма цифр которых нечётная. Паскаль. Через вложенные циклы со счетчиком.
Вывести первые N натуральных чисел, сумма цифр которых
нечётная. Паскаль. Через вложенные циклы со счетчиком.
Гость
Ответ(ы) на вопрос:
Гостьvar n,i,a,k,s:integer;
begin
write('n = ');
readln(n);
k:=0;
i:=0;
while k0 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
Не нашли ответ?
Похожие вопросы