Дано натуральное число: определить

а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр

Question

Информатика

Паисия

13 октября, 20:06

Дано натуральное число: определить

а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр

+1

Ответы (1)

Знаете ответ на вопрос?

Витюха · Answer 1

А)

var

N, k: longint;

begin

write ('N=') ; readln (N) ;

k : = 0;

while N > 0 do

begin

N : = N div 10;

k : = k + 1;

end;

write ('k=', k) ;

end.