Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 10.10.2017
Сообщений: 54
1

Пользователь вводит массив из целых чисел. Найти:количество чисел с максимальной цифрой 6

20.10.2017, 11:50. Показов 3082. Ответов 2

Пользователь вводит массив из целых чисел. Найти:количество чисел с максимальной цифрой 6.
Факториал последнего элемента массива.
При разработке программы использовать функции.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2017, 11:50
Ответы с готовыми решениями:

Пользователь вводит массив из n чисел, посчитать количество чисел больших 2
Добрый день всем) Составить схему вычисления и написать программу на языке Visual Basic 2010 ...

Найти сумму целых нечетных чисел из [N,M]. N,M вводит пользователь
1. Проект состоит из двух форм. Первая форма – заставка. Вторая – визуализация решения задачи....

Repeat Until. Пользователь вводит несколько чисел, а программа выводит количество отрицательных чисел
Repeat Until. Пользователь вводит несколько чисел, а программа выводит количество отрицательных...

Пользователь вводит пары целых чисел. Вычислить площади прямоугольников, сторонами которых являются эти пары чисел
Пользователь вводит пары целых чисел. Вычислить площади прямоугольников, сторонами которых являются...

2
Модератор
64058 / 47473 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
20.10.2017, 12:41 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
type mas=array[1..20] of integer;
procedure massiv(var m:mas;var n:integer);
var i:integer;
begin
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите элементы массива целые числа, в том числе с цифрами 6');
for i:=1 to n do
 begin
  write('m[',i,']=');
  readln(m[i]);
 end;
writeln('Введенный массив');
for i:=1 to n do
write(m[i],' ');
writeln;
end;
 
function cf_6(m:mas;n:integer):integer;
var i,x,mx,k:integer;
begin
k:=0;
for i:=1 to n do
 begin
  x:=abs(m[i]);
  mx:=0;
  while x>0 do
   begin
    if x mod 10>mx then mx:=x mod 10;
    x:=x div 10;
   end;
  if mx=6 then k:=k+1;
 end;
cf_6:=k;
end;
function fact(n:integer):real;
var i:integer;
    f:real;
begin
f:=1;
for i:=2 to n do
f:=f*i;
fact:=f;
end;
 
var  m:mas;
     n:integer;
begin
massiv(m,n);
writeln('Количество чисел с максимальной цифрой 6=',cf_6(m,n));
write('Факториал последнего элемента ',m[n],'!=',fact(m[n]):0:0)
end.
1
0 / 0 / 0
Регистрация: 10.10.2017
Сообщений: 54
20.10.2017, 12:46  [ТС] 3
пасибки, буду знать кому обращаться, блага тебе)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2017, 12:46

написать программу еоторпя вводит с клавиатуры одномрный массив из 10 целых чисел и выводит количество ненулевых элементов.
написать программу еоторпя вводит с клавиатуры одномрный массив из 10 целых чисел и выводит...

Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов
Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит...

Дан двумерный массив целых чисел, найти количество чисел, кратных N
Дан двумерный массив целых чисел, найти количество чисел, кратных N. Как это можна записать в С++??...

Дан массив из n целых чисел. Найти количество встречающихся равных чисел
Дан массив из n целых чисел. Найти количество встречающихся равных чисел.


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

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

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