Программирование циклических алгоритмов: вычисление факториала

@OLYA19903 · Регистрация: 28.01.2018

Author24 — интернет-сервис помощи студентам

Дано натуральное число n.Найти n факториал.Вывести результат на форуме

@D1973 · 11.10.2018, 07:13

Сообщение от OLYA19903

Вывести результат на форуме

И кому он тут, на форуме, нужен? Или Вы собрались на другой форум выводить результат? Тогда зачем здесь пишете?

@OLYA19903 · 11.10.2018, 16:49 **[ТС]**

резулътат на форуме лазаруса

Добавлено через 3 минуты
это как резултат выводитси в отделином окне называетс форма как отделное окно ну там пишетс caption,button,label

@D1973 · 11.10.2018, 18:05

OLYA19903, Вам русский язык не родной? м.б. попробовать на английском написать?

@ZX Spectrum-128 · 12.10.2018, 19:36

Pascal

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
Factorial, n: LongInt;
i: Integer;
begin
  Factorial:=1;
  n:=StrToInt(InputBox('N: ','',''));
  for i:=1 to n do
    Factorial:=Factorial * i;
  ShowMessage('N! = '+ IntToStr(Factorial));
end;
 
end.

@OLYA19903 0 / 0 / 0 Регистрация: 28.01.2018 Сообщений: 47
		1
	Программирование циклических алгоритмов: вычисление факториала 10.10.2018, 23:17. Показов 1122. Ответов 4 Метки нет (Все метки) Дано натуральное число n.Найти n факториал.Вывести результат на форуме 0

@D1973 Модератор 9272 / 6050 / 2380 Регистрация: 21.01.2014 Сообщений: 25,843 Записей в блоге: 3
	11.10.2018, 07:13	2
	Сообщение от OLYA19903 Вывести результат на форуме И кому он тут, на форуме, нужен? Или Вы собрались на другой форум выводить результат? Тогда зачем здесь пишете? 0

@OLYA19903 0 / 0 / 0 Регистрация: 28.01.2018 Сообщений: 47
	11.10.2018, 16:49 [ТС]	3
	резулътат на форуме лазаруса Добавлено через 3 минуты это как резултат выводитси в отделином окне называетс форма как отделное окно ну там пишетс caption,button,label 0

@D1973 Модератор 9272 / 6050 / 2380 Регистрация: 21.01.2014 Сообщений: 25,843 Записей в блоге: 3
	11.10.2018, 18:05	4
	OLYA19903, Вам русский язык не родной? м.б. попробовать на английском написать? 0

	12.10.2018, 19:36