Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
dan4i
0 / 0 / 0
Регистрация: 15.11.2015
Сообщений: 36
1

Найти и вывести количество тех из чисел, которые являются положительными

07.04.2016, 17:06. Просмотров 760. Ответов 1
Метки нет (Все метки)

Вводятся N произвольных целых чисел. Найти и вывести количество тех из них, которые являются положительными и при этом произведение цифр которых равно самому числу.
Помогите пж...
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2016, 17:06
Ответы с готовыми решениями:

Подсчитать и вывести количество тех слов в файле, которые являются записью чисел на Паскале
Помогите решить. 6. Файл состоит из произвольных слов, расположенных по одному слову в строке....

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

Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел
2)*Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше...

Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество таких чисел
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше...

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4732 / 3388 / 4002
Регистрация: 05.06.2014
Сообщений: 16,907
07.04.2016, 17:32 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program digits;
Var
  a,kol,i,n : longint;
 
function f(k:longint):Uint64;
var
  p: Uint64;
begin
  p:=1;
  While k<>0 Do
    Begin
      p:=p*(k mod 10);
      k:=k div 10;
    End;
  f:=p;
end;
 
Begin
  Readln(n);
  for i:=1 to n do
    begin
      readln(a);
      if (a>0) and (a=f(a)) then
        inc(kol);
    end;
  writeln(kol);
  readln;
End.
А вообще достаточно было
Pascal
1
  writeln(1,2,3,4,5,6,7,8,9);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2016, 17:32

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

Сочетания цикла и разветления: Получить сумму тех чисел, которые являются утроенными нечетными
Дано натуральное число n. Получить сумму тех чисел вида i3 - 3in2 + n(i = 1,2, ..., n), которые...

Найти сумму квадратов тех чисел, которые не превосходят Р и сумму кубов тех чисел, которые превосходят.
Пусть дана последовательность a1, ..., а10. Найти сумму квадратов тех чисел, которые не превосходят...


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

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

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