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

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

А)
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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.