1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа

@man4ette23 · Регистрация: 20.09.2012

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

1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа.

@XRain · 29.10.2012, 18:56

Pascal

program project;
 
var
  b,a,n,t:integer;
 
begin
  writeln('Введите число:');
  readln(n);
  a:=0;
  b:=0;
  while n>1 do
  begin
    t:=n mod 10;
    if (t mod 2)=0 then inc(b,t) else inc(a,t);
    n:=n div 10;
    if n=1 then inc(a);
  end;
  if b>a then
  writeln('Верно, сумма четных цифр данного числа больше суммы нечетных цифр.')
  else
   if b=a then
    writeln('Неверно, сумма нечетных цифр данного числа равна сумме четных цифр.')
  else
    writeln('Неверно, сумма нечетных цифр данного числа больше суммы четных цифр.');
end.

@man4ette23 0 / 0 / 0 Регистрация: 20.09.2012 Сообщений: 12
		1
	1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа 28.10.2012, 20:45. Показов 3211. Ответов 1 Метки нет (Все метки) 1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа. 0

Опции темы

1. Дано натуральное число. Верно ли, что сумма четных цифр больше сумма нечетных цифр данного числа

Решение