Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Sasha1997
1 / 1 / 0
Регистрация: 18.10.2015
Сообщений: 39
1

Последовательно вводятся целые положительные числа. Для каждого числа выяснить, является ли оно факториалом

03.11.2015, 22:03. Просмотров 904. Ответов 2
Метки нет (Все метки)

Последовательно вводятся целые положительные числа. Для каждого числа выяснить, является ли оно факториалом какого-либо числа. Если да, то вывести число, факториалом которого является вве-денное, если нет, вывести сообщение об этом. Признаком конца ввода является ввод нуля.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.11.2015, 22:03
Ответы с готовыми решениями:

Для каждого из элементов целочисленного массива С выяснить, является ли он факториалом какого – либо числа
1. Для каждого из элементов целочисленного массива С выяснить, является ли он...

Цикл: для каждого элемента последовательности выяснить, является ли он факториалом
1. Последовательно вводятся целые положительные числа. Для каждого числа...

Вводятся целые положительные числа. Подсчитать сколько среди них попадается первое введенное число
Создать приложение. Вводятся целые положительные числа. Подсчитать сколько...

С клавиатуры вводятся целые положительные числа. Подсчитать сколько среди них попадается первое введенное число.
С клавиатуры вводятся целые положительные числа. Подсчитать сколько среди них...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B...

2
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4025 / 2952 / 3694
Регистрация: 05.06.2014
Сообщений: 14,632
04.11.2015, 09:20 2
Брал с форума когда-то, подзабыл у кого.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function IsFact(x:longint;var n:longint):boolean;
var
  p:longint;
Begin
  p:=1;
  N:=1;
  if x=1 then
    begin
      IsFact:=true;
      exit;
    end;
  While p<x  do
  Begin
    N:=N+1;
    p:=p*N;
  End;
  IsFact:=p=x;
End;
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4060 / 2673 / 2140
Регистрация: 22.11.2013
Сообщений: 7,485
04.11.2015, 11:10 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Достаточно, если правильно путаю
Pascal
1
2
3
4
5
6
7
8
9
10
function IsFact(x: Longint; var n: Longint): Boolean;
var
  p: Longint;
begin
  p:=1; n:=1;
  while p<x do begin
    Inc(n); p:=p*n;
  end;
  IsFact:=p=x;
end;
Добавлено через 7 минут
Правда, n: Longint -- слишком оптимистично
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.11.2015, 11:10

Найти дробную часть вещественного числа х, если целые числа вводимые с экрана положительные; х=y/z
Hужно использовать оператор &quot;если&quot;. Застрял на ней. Помогите чем сможете.

Определить, является ли число факториалом некоторого числа N
Вводится натуральное число. Определить, является ли оно факториалом некоторого...

Дан отрезок [A, B], где A, B – целые положительные числа. Определить, есть ли на отрезке простые числа, и если есть, то вывести их на экран
Дан отрезок , где A, B – целые положительные числа. Определить, есть ли на...


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

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

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