Определить: количество цифр в числе, среднее арифметическое цифр, сумму квадратов

@Максим098 · Регистрация: 26.02.2017

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

Дано натуральное число N. Определить: количество цифр в нем; среднее арифметическое его цифр; сумму квадратов
c помощью while

@ZX Spectrum-128 · 03.03.2017, 19:37

Определить количество цифр в числе
Определить среднее арифметическое цифр числа
Вычислить сумму квадратов цифр заданного натурального числа N

@Hitoku · 03.03.2017, 19:40

Pascal

begin
  var sumsqr:=0; var sum:=0;
  write('Введите число:'); var n:=ReadlnInteger;
  var s:=IntToStr(n); var i:=1;
  While i<=s.Length do begin
    sumsqr+=SQR(StrToInt(s[i]));
    sum+=StrToInt(s[i]);
    i+=1;
  end;
  writeln('Количество цифр = ',s.Length);
  writeln('Сумма квадратов цифр = ',sumsqr);
  writeln('Среднее арифметическое цифр = ',sum/s.Length);
end.

@Максим098 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 115
		1
	Определить: количество цифр в числе, среднее арифметическое цифр, сумму квадратов 03.03.2017, 19:23. Показов 6394. Ответов 2 Метки нет (Все метки) Дано натуральное число N. Определить: количество цифр в нем; среднее арифметическое его цифр; сумму квадратов c помощью while 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	03.03.2017, 19:37	2
	Определить количество цифр в числе Определить среднее арифметическое цифр числа Вычислить сумму квадратов цифр заданного натурального числа N 0

	03.03.2017, 19:40

Определить: количество цифр в числе, среднее арифметическое цифр, сумму квадратов

Решение