Найти сумму четных цифр числа

@Alextroy11 · Регистрация: 18.03.2017

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

Дано натуральное число (более четырех знаков):
– найти сумму четных цифр числа;
– верно ли, что данное число начинается и заканчивается на четную цифру?

@FearDog · 10.10.2017, 11:03

Delphi

var s:string;
    i,a,b:integer;
begin
  a:=1234; //Ввод произвольного числа
  b:=0;
  s:=IntToStr(a);
  for i := 1 to Length(s) do
  if StrToInt(s[i]) mod 2 = 0 then b:=b+StrToInt(s[i]);
  ShowMessage('Сумма четных чисел:'+IntToStr(b));
  if StrToInt(s[1]) mod 2 + StrToInt(s[Length(s)]) mod 2 = 0 then
  ShowMessage('Данное число начинается и заканчивается на четную цифру') else
  ShowMessage('Данное число начинается и/или заканчивается на нечетную цифру');

@Alextroy11 0 / 0 / 0 Регистрация: 18.03.2017 Сообщений: 26
		1
	Найти сумму четных цифр числа 10.10.2017, 10:46. Показов 1556. Ответов 1 Метки нет (Все метки) Дано натуральное число (более четырех знаков): – найти сумму четных цифр числа; – верно ли, что данное число начинается и заканчивается на четную цифру? 0

	10.10.2017, 11:03

Найти сумму четных цифр числа

Решение