Вывести на экран количество цифр числа N и сумму его цифр

@Tasamaya · Регистрация: 13.11.2012

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

@Pahanuch · 13.11.2012, 15:45

Pascal

Program prog;
uses crt;
var i, N, count, S: integer;
Begin
clrscr;
count:=0;
repeat
Write('Введите N (N<10255): ');
Read(N);
until N<10255;
While (N<>0) do Begin
S:=S+N mod 10;
N:=N div 10;
inc(count);
End;
Writeln;
Writeln('Количество цифр: ',count);
Writeln('Сумма цифр: ',S);
readln;
End.

@Tasamaya 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 11
		1
	Вывести на экран количество цифр числа N и сумму его цифр 13.11.2012, 15:25. Показов 3021. Ответов 1 Метки нет (Все метки) Дано натуральное число N (N<10255). Вывести на экран количество цифр числа N и сумму его цифр. 0

Опции темы

Вывести на экран количество цифр числа N и сумму его цифр

Решение