Как решить СЛОЖНУЮ задачу по информатике, в паскале???

  • var i, o, r : integer;

    begin

    writeln('Введите исходные данные: ');
    write('Первое число -> '); readln(o);
    write('Второе число -> '); readln(i);

    r := 1;

    if o < i
    then begin
    for o:=o to i do r:=r*o;
    writeln(r);
    end
    else writeln('Ошибка! Первое число не меньше второго! ');

    readln();

    end.

  • в чем сложности?
  • Это сложная задача? Да это элементарная задача для детей. Ты ещё сложных задач не видел.
  • if(A p = 1;
    for(i=A; i<=B; i++) p *= i;
    } else {
    exit();
    }
  • Пиши в мой адрес.
  • Код Pascal

    Var i:integer;
    p:longint;
    Begin
    p:=1;
    For i:=8 to 15 do
    p:=p*i;
    writeln('Произведение: ',p);
    End.

    Источник: вместо 8 и 15 ставь 3 и 5
  • вместо 8 и 15 ставь 3 и 5
  • Я решил.

Вас заинтересует