Составте программку в паскале которая определяет, является ли сумма цифр введеного

Составте программу в паскале которая определяет, является ли сумма цифр введеного целого трёхзначного числа чётным числом

Задать свой вопрос
1 ответ
Var a,s:integer;
begin
readln(a);
a:=abs(a);
s:=(a div 100)+(a div 10 mod 10)+(a mod 10);
if s mod 2=0 then writeln('s = ',s,' - четное значение')
else writeln('s = ',s,' - нечетное значение');
end.

Пример:
394
s = 16 - четное значение
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт