Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр

@Airat007 · Регистрация: 15.10.2011

Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр.

@volvo · 01.10.2012, 13:19

Читаем число как строку (длины строки в 255 символов как раз хватит, чтобы хранить представление числа <10²⁵⁵), количество цифр в нем будет равно длине строки. Ну, и сумму цифр найти не проблема:

Pascal

var 
   s : string;
   i, sum : integer;
begin
   readln(s); { Откуда надо прочесть число ты не указал, потому читаем с клавиатуры }
   writeln('Количество цифр в числе = ', Length(s));
 
   sum := 0;
   for i := 1 to Length(s) do
      sum := sum + (Ord(s[i]) - Ord('0'));
   writeln('Сумма цифр числа: ', sum);
end.

@Airat007 0 / 0 / 0 Регистрация: 15.10.2011 Сообщений: 23
		1
	Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр 01.10.2012, 08:06. Показов 2941. Ответов 1 Метки нет (Все метки) Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр

Решение