Показать сообщение отдельно

  #5974  
Старый 02.04.2010, 00:37
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами: 8542140

Репутация: 47
По умолчанию

Qb1024...вот, вроде так
PHP код:
function min(binteger): integer;
begin
  min
:=a;
  if 
b<a then min:=b;
end;

 var
     
nikmrezinteger;

begin
   readln
(km);
   
readln(n);
   
rez:=0;
   For 
i:=1 to min(km) do
     if ((
k div i) * (m div i)>=nthen rez:=i;
   
writeln(rez);
   
readln;
 
end
 
Ответить с цитированием