[Victoria 888]

на фото помогите пожалуйста заранее спасибо

[Aristarh Dark]

Хм... Как-то так:

Код:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
function fact(n:int64):int64;
begin
  if (n=1) or (n=0) then
    fact:=1
  else
    fact:=fact(n-1)*n;
end;
var
  m,k,l:int64;
  f:int64;
begin
  WriteLn('m?');
  ReadLn(m);
  WriteLn('k?');
  ReadLn(k);
  WriteLn('l?');
  ReadLn(l);
  f:=fact(l)*(fact(m)-fact(k));
  WriteLn('F=',f);
  ReadLn;
end.

Еще не плохо бы добавить проверку на "неотрицательность" вводимых значений, но мне лень...

[Victoria 888]

Спасибо большое, только к этому заданию нужна блоксхема можете показать как она выглядит в этом задании ?

[lmikle]

введи в гугле "блок схема алгоритма" и посмотри картинки как их рисовать.

В твоем случае.
Для общей программы:

Код:

 --------
( Начало )
 --------
    |
 -------------
/ Ввод m,k,l /
-------------
    |
------------------
| Вычисление     |
| f = (m!-k!)*l! |
------------------
    |
 ---------
/ Вывод f )
\         )
 ---------
    |
 -------
( Конец )
 -------

Блок схема вычисления факториала (функции) обычно приводится отдельно. Пример можно найти тут:
http://smiuk.sfu-kras.ru/kodnyanko/s.../5/AlgLab5.htm

[vasilev]

Необходимо вставить в ячейки таблицы StringGrid определенные значения.
Пытаюсь это сделать через StringGrid.cells[i,y]:='proba', Программа все проходит, но значения в таблице не появляются. Подскажите в чем дело.

[lmikle]

StringGrid это тебе не Excel. Там сначала надо выставить кол-во строк и столбцов. Хотя странно, вроде, если нужная ячейка находится за границей созданных, должно падасть с исключением...