Предмет: Информатика,
автор: kotenochek
Дано целое число. Определить в этом числе количество цифр, сумму чисел, среднее арифметическое. (Pascal)
Ответы
Автор ответа:
0
program xxx;
var n, s, k, c : integer;
sa : real;
begin
write ('введите число n-');
readln (n);
k:=0;
s:=0;
while n>0 do
begin
c:= n mod 10;
s:=s+c;
k:=k+1;
n:=n div 10
end;
write ('сумма цифр = ', s);
write ('количество цифр =', k);
sa:=s/k;
write ('среднее арифметическое =', sa)
end.
Интересные вопросы
Предмет: География,
автор: hvikusai3875
Предмет: Биология,
автор: arinazoom20
Предмет: Английский язык,
автор: DanilTop4kk
Предмет: Математика,
автор: turel