Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/2: Рейтинг темы: голосов - 2, средняя оценка - 5.00
windmill312
0 / 0 / 0
Регистрация: 23.12.2014
Сообщений: 5
1

Найти среднее арифметическое тех чисел последовательности, которые имеют в своей записи цифру три

24.12.2014, 00:00. Просмотров 403. Ответов 1
Метки нет (Все метки)

Дана последовательность из n целых чисел. Найти среднее арифметическое тех чисел последовательности, которые имеют в своей записи цифру три. (решить с помощью подпрограмм, без массивов)
Delphi
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
39
40
41
42
program Project3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Convertor in 'Convertor.pas';
 
function sostav(a:Integer):boolean;
var
  p,n1,n2,n3,n4,n5:Integer;
begin
  p:=3;
  n1:=a div 10000 mod 10;
  n2:=a div 1000 mod 10;
  n3:=a div 100 mod 10;
  n4:=a div 10 mod 10;
  n5:=a mod 10;
  sostav(a):=(n1=3) or (n2=3) or (n3=3) or (n4=3) or (n5=3);
end;
 
procedure sr_arifm(q,x:integer; var k,a:Integer);
 begin
??????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????????????????????
??????????????????????????????????????????????????????????????????????????
 end;
 
 var
 n,w,t,z,v,m:Integer;
begin
Writeln(RUS('Введите количество чисел в последовательности!'));
Readln(n);
for w:=1 to n do
begin
Writeln(RUS('Введите число!'));
Readln(t);
sr_arifm(t,z,v,m);
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2014, 00:00
Ответы с готовыми решениями:

В каждом столбце найти среднее арифметическое элементов, которые делятся на свою последнюю цифру без остатка
для каждого столбца найти среднее арифметическое элементов, у которых последняя цифра делит этот...

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел последовательности
дана последовательность стоящая из n вещественных чисел.вычислить среднее арифметическое...

Найти среднее арифметическое значение всех чисел последовательности
Здравствуйте! Помогите пожалуйста с задачей: Дана последовательность целых чисел (0 означает конец...

Найти и вывести на экран сумму и среднее арифметическое последовательности чисел
программа позволяющая найти и вывести на экран сумму и среднее арифметическое последовательности...

Найти среднее арифметическое тех чисел последовательности, которые имеют в своей записи цифру 3
Дана последовательность из n целых чисел. Найти среднее арифметическое тех чисел...

1
Joeymax
1054 / 349 / 78
Регистрация: 31.03.2012
Сообщений: 944
24.12.2014, 07:08 2
Delphi
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
39
40
41
program cf019;
{$APPTYPE CONSOLE}
uses
  CyrConsole, SysUtils;
 
var
  i,
  n,          // всего будет введено чисел
  aNum,       // очередное число
  k,          // количество чисел, которые имеют в своей записи цифру три
  s :Integer; // их сумма
 
function GetN3(a :Integer): Boolean;
begin
  Result := False;
  while a > 0 do begin
    if (a mod 10) = 3 then begin
      Result := True;
      Break;
    end; { end if }
    a := a div 10;
  end; { end while }
end;
 
begin
  Write('Введите количество чисел в последовательности! ');
  Readln(n);
  for i := 1 to n do begin
    write('Введите число! ');
    readln(aNum);
    if GetN3(aNum) then begin
      s := s + aNum;
      Inc(k);
    end;
  end; { end for }
 
  Writeln(#13#10'Всего чисел имееющих в своей записи цифру 3 - ', k);
  Writeln('Сумма этих чисел - ', s);
  Writeln('Их среднее арифметическое  -', 1.0*s/k :12:4);
  Readln;
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2014, 07:08

Найти произведение тех чисел, которые не имеют в своей записи цифры 3
Вводятся 4х-значные числа. Найти произведение тех из них, которые не имеют к своей записи цифры 3.

Найти количество тех чисел отрезка [A, B], которые в своей записи имеют две девятки
Дан натуральный отрезок чисел . Найти количество тех чисел этого отрезка, которые в своей записи...

Вводится последовательность n целых чисел Найти сумму и количество тех, которые имеют последнюю цифру 2 или 5
Пожалуйста помогите решыть! Зарание спасибо. Вводится последовательность n целых чисел Найти сумму...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru