Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех нечетных чисел этой последовательности. Ноль числом последовательности не считается. Паскаль
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Program srof;var a,b:integer;
begin
writeln('введите последовательность чисел закончив её введением 0');
readln(a);
b:=0;
c:=0;
while (a<>0) do
begin
if a mod 2 <>0 then
b:=b+a;
readln(a);
end;
writeln(b);
end.