ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1083. Факториалы!!!

why is it not true????
Послано Victoriya 10 фев 2010 00:01
program z;
 var n,k:byte; f:longint;
     s:string[30];
 procedure factorial1(n,k:byte);
  var q:integer;
  begin
   q:=n;
   while q>=k do
    begin
     f:=f*q;
     q:=q-k;
    end;
  end;
  procedure factorial2(n,k:byte);
   var q:integer;
  begin
   q:=n;
   while q>=(n mod k) do
    begin
     f:=f*q;
     q:=q-k;
    end;
  end;
begin
 read (n,s);
 k:=length(s);
 f:=1;
 IF n mod k=0 then factorial1(n,k)
  else factorial2(n,k);
 writeln (f);
end.