1 / 1 / 0
Регистрация: 18.10.2015
Сообщений: 44
1

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

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

Author24 — интернет-сервис помощи студентам
Последовательно вводятся целые положительные числа. Для каждого числа выяснить, является ли оно факториалом какого-либо числа. Если да, то вывести число, факториалом которого является вве-денное, если нет, вывести сообщение об этом. Признаком конца ввода является ввод нуля.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.11.2015, 22:03
Ответы с готовыми решениями:

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

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

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

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

2
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
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
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7750 / 4584 / 2818
Регистрация: 22.11.2013
Сообщений: 13,039
Записей в блоге: 1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2015, 11:10
Помогаю со студенческими работами здесь

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

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

Последовательно вводятся исходные данные - целые числа.
Последовательно вводятся исходные данные - целые числа. Последовательность оканчивается числом 0. ...

Задано целое натуральное число, определить является ли оно факториалом числа n
Добрый день! Помогите решить! ))) 1) Задано целое натуральное число, определить является ли оно...


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

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

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