Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех...

0 голосов
124 просмотров

Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти сумму всех нечетных чисел этой последовательности. Ноль числом последовательности не считается. Паскаль


задал (24 баллов) по предмету Информатика
1 Ответ
0 голосов
 
Лучший ответ

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.

решение Отличник (8.6 тыс. баллов)
...