Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Найти сумму нечетных цифр в заданном с клавиатуры числе.

Ответ оставил Гость

Var 
str : string;
i,c,a,count : integer;
begin
i:=1;
count :=0;
writeln(Вводите числа, как только введете все числа нажмите любую букву);
while i=1 do begin
readln(str);
val(str,a,c);
if ( a mod 2 <>0) then count := count +a;
if(c<>0) then i:=0;
end;
writeln(Сумма нечетных чисел  = , count);
end.