Вывести первые N натуральных чисел, сумма цифр которых
нечётная. Паскаль. Через вложенные циклы со счетчиком.
нечётная. Паскаль. Через вложенные циклы со счетчиком.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
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