Найти количество и сумму

@LastRider · Регистрация: 15.10.2015

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

Дано натуральное число .Найти количество и сумму цифр в записи этого числа

@Joy · 21.12.2015, 17:07

Pascal

var
  a:longint;
begin 
  write('Введите натуральное число:');readln(a);
  writeln('Количество цифр:',trunc(log10(a))+1);
  writeln('Сумма цифр:',a.ToString.ToCharArray.Select(c->ord(c)-48).Sum());
end.

@LastRider 0 / 0 / 0 Регистрация: 15.10.2015 Сообщений: 14
		1
	Найти количество и сумму 21.12.2015, 14:48. Показов 1331. Ответов 1 Метки нет (Все метки) Дано натуральное число .Найти количество и сумму цифр в записи этого числа 0

	21.12.2015, 17:07

Найти количество и сумму

Решение