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

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

Задать свой вопрос
1 ответ
var
a,x:integer; 
i,s:integer;

begin 
write('Введите число '); 
readln( a );  
x:=a; 
s:=0; 
while ( xlt;gt;0 ) do begin   
s := s + (x mod 10);   
x := x div 10; 
end; 
writeln( 'Сумма цифр числа ',a,' = ', s ); 
if (s mod 2 lt;gt;0 ) then 
writeln('Правильно') 
else  writeln('Ошибочно');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт