Проверить будет ли сумма его цифр четным числом

@Димко_О · Регистрация: 17.02.2012

Author24 — интернет-сервис помощи студентам

Вот задачка: задачка впринцепи легкая,но я что-то туплю.Вот сама задача: Дано 3-х значное число N. Проверить будет ли сумма его цифр четным числом.Надеюсь на помощь

@Ev[G]eN · 17.02.2012, 23:44

Pascal

var
  Chislo, Summa, n: integer;
  bool: boolean;
begin
  bool:=false;
  readln(Chislo);
  while Chislo > 0 do
  begin
    n:=Chislo mod 10;
    inc(Summa, n);
    Chislo:=Chislo div 10;
  end;
  if Summa mod 2 = 0 then bool:=true;
  writeln('Сумма цифр числа четная? ', bool);
end.

@Димко_О · 17.02.2012, 23:49 **[ТС]**

спасибо большое

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@Димко_О 0 / 0 / 0 Регистрация: 17.02.2012 Сообщений: 18
		1
	Проверить будет ли сумма его цифр четным числом 17.02.2012, 23:41. Показов 2085. Ответов 2 Метки нет (Все метки) Вот задачка: задачка впринцепи легкая,но я что-то туплю.Вот сама задача: Дано 3-х значное число N. Проверить будет ли сумма его цифр четным числом.Надеюсь на помощь 0

	17.02.2012, 23:49

Проверить будет ли сумма его цифр четным числом

Решение