Как найти среднее арифметическое цифр трехзначного числа

Как найти среднее арифметическое цифр трехзначного числа

ОГЭ 15.2 — 5 находит среднее арифметическое трехзначных чисел

находит среднее арифметическое трехзначных чисел

Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое трехзначных чисел или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 100. Введённые числа не превышают 300.

Программа должна вывести среднее арифметическое трехзначных чисел или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых.

Пример работы программы:

Входные данные Выходные данные
30
170
127
0		 148,5

Источник

Перейти к контенту

Вычислительная техника и дискретная математика

Дано трехзначное число. Вычислить среднее арифметическое его цифр.

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

program line_7;
uses crt;
var
a: integer;
sr: real;
begin
clrscr;
write(‘a = ‘); readln(a);
sr:=0;
sr:=sr+(a div 100);
sr:=sr+(a mod 10); a:=a div 10;
sr:=sr+(a mod 10);
write(‘Среднее арифметическое цифр = ‘, sr/3:4:2);
readkey;
end.

Рейтинг

( Пока оценок нет )

Источник

0 / 0 / 0

Регистрация: 05.11.2014

Сообщений: 10

1

Найти среднее арифметическое нечётных трехзначных чисел в массиве

06.11.2014, 00:52. Показов 6013. Ответов 1

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

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Напишите, пожалуйста, программу, позволяющую найти среднее арифметическое нечётных трехзначных чисел, записанных в этом массива. Если ни одного такого числа нет, нужно вывести сообщение об этом.



0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

 06.11.2014, 00:52

1

ZX Spectrum-128

Эксперт Pascal/Delphi

6805 / 4564 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

06.11.2014, 17:55

2

Лучший ответ Сообщение было отмечено M6 как решение

Решение

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

{ Дан целочисленный массив из 30 элементов. Элементы массива могут
принимать целые значения от 0 до 1000. Напишите, пожалуйста, программу,
позволяющую найти среднее арифметическое нечётных трехзначных чисел,
записанных в этом массива. Если ни одного такого числа нет, нужно
вывести сообщение об этом.       }
 
const
  n=30;
var
  a:array[1..n] of integer;
  k,i,sum:integer;
  sr:real;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(1000);
      write(a[i]:5);
    end;
  k:=0;
  sum:=0;
  for i:=1 to n do
    if (a[i]>=100) and (a[i]<=999) and (odd(a[i])) then
      begin
        sum:=sum+a[i];
        k:=k+1;
      end;
  if k=0 then
    begin
      writeln;
      writeln('В массиве нет трехзначных чисел! Программа завершена.');
      exit;
    end;
  writeln;
  sr:=sum/k;
  writeln('Среднее среди трехзначных чисел: ',sr:8:2);
  readln;
end.



1
Источник

dvika2003

Информатика: (Pascal abc) Дано трехзначное число, определить сумму, произведение, средне арифметическое значение цифр этого числа.
Поменяйте местами первую и третью цифру этого числа.

SanGreen74

Светило науки – 160 ответов – 625 раз оказано помощи

var sum,p,x,z:integer; 
begin 
writeln(‘Введите трёхзначное число’); 
read(x); 
sum:=x mod 10 + x div 100 + x div 10 mod 10; 
p:=(x mod 10) * (x div 100) * (x div 10 mod 10); 
z:=(x mod 10 *100) + (x div 10 mod 10 *10) + (x div 100); 
writeln(‘Сумма цифр =’,sum); 
writeln(‘Среднее арифметическое цифр =’,sum/3); 
writeln(‘Произведение цифр =’,p); 
writeln(‘После перестановки 1 и 3 цифр =’,z); 
end.

Источник

Добавить комментарий