написать программу

[s-andriano]

А еще вместо

c := b*a;

писать:

function Proizvedenije_Tselyh_Chisel(a,b : integer);
begin
  if a = 1 then begin
    if b = 1 then result := 1
    else if b = 2 then result := 2
    else if b = 3 then result := 3
...

[Вадим Мошев]

Битва говнокодеров объявляется открытой!

[Poma][a]

Почему-то сразу в глаза бросилось

function Proizvedenije_Tselyh_Chisel(a,b : integer) : Integer;

[whatever]

Сообщение от s-andriano

function Proizvedenije_Tselyh_Chisel(a,b : integer);
begin
  if a = 1 then begin
    if b = 1 then result := 1
    else if b = 2 then result := 2
    else if b = 3 then result := 3
...

Дополню:

function Proizvedenije_Tselyh_Chisel(a,b : integer);
begin
  if a = 1 then begin
    if b = 1 then result := 1
    else if b = 2 then result := 2
    else if b = 3 then result := 3
    ...
  end
  else if a = 2 then begin
    if b = 1 then result:=2
    else if b = 2 then result:=2+2
    else if b = 3 then result:=3+3
    ...
  end
  else if a = 3 then begin
    if b = 1 then result:=3
    else if b = 2 then result:=2+2+2
    else if b = 3 then result:=3+3+3
    ...

[Аватар]

А как насчет 1000*1000

[whatever]

Сообщение от Аватар

А как насчет 1000*1000

Черт, даже текст 10*10 на форум не влез, но я его прикреплю

А вот универсальный написатель процедур ©:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n=10;
  m=10;
var
  T:textfile;
  i,j,count:integer;
begin
  assignfile(T,'C:\lol.pas');
  rewrite(T);
  writeln(T,'program Project1;');
  writeln(T,'{$APPTYPE CONSOLE}');
  writeln(T,'uses SysUtils;');
  writeln(T,'function Proizvedenije_Tselyh_Chisel(a,b : integer):integer;');
  writeln(T,'begin');
  writeln(T,'  if a = 1 then begin');
  writeln(T,'    if b = 1 then result := ',1);
  for j:=2 to M do
  writeln(T,'    else if b = ',j,' then result := ',j);
  writeln(T,'  end');
  for i:=2 to N do
    begin
      writeln(T,'  else if a = ',i,' then begin');
      writeln(T,'    if b = 1 then result := ',i);
      for j:=2 to M do
        begin
          write(T,'    else if b = ',j,' then result := ',j);
          for count:=2 to i do
            write(T,'+',j);
          writeln(T);
        end;
      writeln(T,'  end');
    end;
  writeln(T,'end;');
  writeln(T,'var');
  writeln(T,'  a,b:integer;');
  writeln(T,'begin');
  writeln(T,'write(''a='');readln(a);');
  writeln(T,'write(''b='');readln(b);');
  writeln(T,'writeln(''a*b= '',Proizvedenije_Tselyh_Chisel(a,b));');
  writeln(T,'readln;');
  writeln(T,'end.');
  close(T);
end.

им и написан прикрепленный файл (Который, кстати, компилируется и работает ).

Попробовал 1000*1000, но получилось то, что на картинке (это я еще завершения не дождался)

[New man]

whatever, я однажды написал такую же программу, чтобы олимпиадную задачу решить. Там требовалось вычислить все за 1 секунду. А правильными методами получались ~1 час для входного числа 100. за задачу дали 100 баллов. (Хотя да, мои руки кривоваты)

[Алексей_2012]

не стал читать все подряд, так что извините если что-то не так, когда-то я писал прогу для вычисления факториала, причем чисто для интереса, код не очень, но работает

З.Ы. Извините за название архива, торопился писать, написал с ошибкой

[taras-proger]

Сообщение от Аватар

Ай-да профи. Не знает что такое факториал и команды цикла на паскале. Да и 33! на паскале так просто не высчитать, нужно программировать арифметику с длинными числами

128 бит надо.