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

@maastah · Регистрация: 06.10.2014

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

Пожалуйста помогите!
Дано натуральное число. Верно ли,что сумма цифр данного числа больше 10.
Решить с помощью одномерного массива.
Спасибо заранее!

@Joy · 21.12.2014, 20:28

Pascal

var 
  a:array[0..9] of integer;
  n,i:integer;
  b:longint;
begin
  write('введите число:');readln(b);
  while b>0 do begin i:=b mod 10;inc(a[i]);b:=b div 10;end;
  for i:=1 to 9 do n:=n+a[i]*i;
  if n>10 then writeln('верно') else writeln('неверно');
end.

@Sergio Leone · 21.12.2014, 21:46

Joy, а зачем Вы использовали массив? Просто, чтобы задача не была такой скучной и банальной?

почему не просто:

Pascal
1 2
sum := 0; while N>0 do begin sum := sum + (N mod 10); N := N div 10 end; WriteLn(sum>10)

всё, прочитал задание, извините за мою невнимательность!

@maastah 0 / 0 / 0 Регистрация: 06.10.2014 Сообщений: 9
		1
	Дано натуральное число. Верно ли, что сумма цифр данного числа больше 10? 21.12.2014, 17:24. Показов 6571. Ответов 2 Метки нет (Все метки) Пожалуйста помогите! Дано натуральное число. Верно ли,что сумма цифр данного числа больше 10. Решить с помощью одномерного массива. Спасибо заранее! 0

	21.12.2014, 21:46

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

Решение