Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру

@kenzh28 · Регистрация: 02.10.2018

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

Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру.

@Puporev · 02.10.2018, 08:29

Pascal

var n,k,s:integer;
begin
write('Введите натуральное число n>0 n=');
readln(n);
k:=1;
s:=0;
while n>9 do
 begin
  k:=k+1;
  s:=s+n mod 10;
  n:=n div 10;
 end;
s:=s+n;
write('Количество цифр=',k,' сумма цифр=',s,' первая цифра=',n)
end.

@kenzh28 0 / 0 / 0 Регистрация: 02.10.2018 Сообщений: 1
		1
	Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру 02.10.2018, 00:56. Показов 11121. Ответов 1 Метки нет (Все метки) Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру. 0

	02.10.2018, 08:29