Дано натуральное число. определить верно ли что сумма его цифр есть число не четное.

274

281

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

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

лимпоьип

Информатика

4,7(31 оценок)

Var a,x: integer; i,s: integer; begin write('введите число '); readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; writeln( 'сумма цифр числа ',a,' = ', s ); if (s mod 2 < > 0 ) then writeln('верно') else writeln('неверно'); end.