Четверг, 09.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Задача на арифметику
ФилинДата: Воскресенье, 25.01.2009, 22:40 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 3
Репутация: 0
Замечания: 0%
Статус: Offline
Наверняка ларчик просто окрывается, но у меня что-то не получается это сделать...

ornito homini simpas est
 
SeqularДата: Понедельник, 26.01.2009, 06:49 | Сообщение # 2
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Попробуй
Code

function NOD(x,y:longint):longint;
  begin
   if x<>0 then NOD:= NOD(y mod x,x) else NOD:= y;
  end;

Есть и другие методы...


Поддерживаю также проект сообщество молодых сисадминов
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;