wiktor123
1

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

29.01.2014, 14:41. Показов 2066. Ответов 4
Метки нет (Все метки)

Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые являются степенью пятерки. Необходимо также вывести сами элементы.
В решении необходимо использовать процедуру или функцию.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.01.2014, 14:41
Ответы с готовыми решениями:

Дан массив целых чисел. Найти количество различных чисел среди элементов этого массива
Уважаемые форумчане, только начал разбираться в C# Пожалуйста, помогите с написанием кода для...

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

Среди чисел найти те, которые являются степенью пятерки
Искал решение задачи на форуме, но не нашел, нашел только с функцией, задачу надо решить с...

Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.
ПОМОГИТЕ пож.... Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.

4
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
29.01.2014, 15:32 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
Function check5div(m : Longint) : Boolean;
Begin
  if m div 5 = 1 then check5div:=True else
    If m mod 5 <>0 then check5div:=False else
      check5div:=check5div(m div 5);;
End;
 
k:=0;
for i:=1 to N do
  If check5div(m[i]) then Writeln(m[i]);
Writeln('всего значений: ',k);
0
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
02.02.2014, 20:31 3
Цитата Сообщение от APALoff Посмотреть сообщение
if m div 5 = 1 then check5div:=True
Наверное нужно if m=5 ,а так если подастся значение 7, то 7 div 5 = 1, но 7 степенью 5 не является.

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
Function check5div(m : Longint) : Boolean;
Begin
  if m=5 then check5div:=True else
    If m mod 5 <>0 then check5div:=False else
      check5div:=check5div(m div 5);;
End;
1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32446 / 20941 / 8104
Регистрация: 22.10.2011
Сообщений: 36,207
Записей в блоге: 7
02.02.2014, 21:53 4
Pascal
1
2
3
4
5
function check5div(m : Longint) : Boolean;
begin
  if m < 5 then check5div := false
  else check5div := (m = 5) or check5div(m div 5);
end;
1
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
02.02.2014, 22:20 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function check5div(m : Longint) : Boolean;
begin
  if m < 5 then check5div := false
  else check5div := (m = 5) or check5div(m div 5);
end;
 
var n:LongInt;
begin
Read(n);
Writeln(check5div(n));
Readln;
end.
Ввожу 127 выводит TRUE...

Добавлено через 12 минут
Pascal
1
2
3
4
Function check5div(m : Longint) : Boolean;
Begin
check5div:=(m=5) or ((m mod 5=0) and check5div(m div 5));
End;
Вот краткий вариант.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2014, 22:20
Помогаю со студенческими работами здесь

Дан массив x содержащий n элементов. Найти количество различных чисел среди элементов этого массива
Работает, только если все числа одинаковые, все числа разные или есть только два числа. В ряде...

Дан одномерный целочисленный массив из n элементов. Найти количество различных чисел среди элементов этого массива
Дан одномерный целочисленный массив из n элементов. Найти количество различных чисел среди...

Найти количество чисел последовательности, которые являются степенями пятерки
Даны натурального число n и целые числа A1,A2,A3...An. Найти количество чисел Ai(i=1,2,3,...,n),...

ЗАДАЧА Дан массив из 50 целых чисел. Найти количество элементов массива
Дан массив из 50 целых чисел. Найти количество элементов массива которое больше удвоенного значения...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru