Вопрос по информатике:
Среди пятизначных чисел вычислить среднее арифметическое чисел сумма цифр которых находится в пределах 20-30 Это в паскале нужно
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.01.2015 01:47
- Информатика
- remove_red_eye 16369
- thumb_up 14
Ответы и объяснения 2
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
function SodGood(n:integer):boolean;
// Попадает ли сумма цифр числа n в диапазон [20;30]?
begin
var s:=0;
while n>0 do begin
s+=(n mod 10);
n:=n div 10
end;
Result:=(s>=20) and (s<=30)
end;
begin
Print(Range(10000,99999).Where(n->SodGood(n)).Average)
end.
Результат:
57982.8943738243
- 02.01.2015 11:47
- thumb_up 32
Function Check(num : integer) : boolean;
var
sum : integer;
begin
while num > 0 do
begin
sum := sum + num mod 10;
num := num div 10;
end;
Result := (sum >= 20) and (sum <= 30);
end;
var
i, len : integer;
sum : real;
begin
sum := 0;
len := 0;
for i := 10000 to 99999 do
begin
if Check (i) then
begin
len := len + 1;
sum := sum + i;
end;
end;
writeln('Среднее арифметическое: ', sum / len);
end.
- 03.01.2015 18:05
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.