Составьте программку, печатающую значение TRUE,если указанное выражение является истинным,

Составьте программу, печатающую значение TRUE,если указанное высказывание является подлинным, и FALSE в противном случае: сумма цифр данного трехзначного числа N является четным числом
ПРОШУУ ПОМОГИТЕ ПОЖАЛУЙСТА(((РЕШАТЬ НА ПАСКАЛЕ..

Задать свой вопрос
1 ответ
Var a,n: integer;
begin 
a:=0;
readln(n);
  while nlt;gt;0 do 
  begin   
a:=a+(n mod 10); 
   n:=n div 10;
   end;
 if a mod 2=0
 then 
 writeln('Сумма цифр числа - четная')
 else 
writeln('Сумма цифр числа - нечетная');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт