Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех нечетных чисел этой последовательности. Ноль числом последовательности не считается. Паскаль
Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех нечетных чисел этой последовательности. Ноль числом последовательности не считается. Паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы