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

voronkovid

06.04.2020 00:55

Информатика

Есть ответ 👍

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

249

383

Посмотреть ответы 2

Ответы на вопрос:

Sanek12221

Информатика

4,6(89 оценок)

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.