На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Название темы должно быть информативным !
Прежде чем задать вопрос, воспользуйтесь Поиском. и проверьте в FAQ (ЧАВО) Паскаля
Чтобы получить вразумительный ответ, подробно опишите проблему: что надо сделать, что не получается и номер ошибки (если есть), которую выводит компилятор.
Для вставки кода ваших программ используйте, пожалуйста, кнопку СODE=pas или выпадающий список СODE для других языков (подсветка синтаксиса).
[!] Как правильно задавать вопросы | Руководство по языку B.Pascal 7 & Objects/LR | Borland Pascal. Руководство пользователя
Модераторы: volvo877
  
> Решения сравнения
    Здравствуйте.Помогите пожалуйста написать задание на паскале: Реализовать алгоритм решение сравнения a=b(mod m),причем НОД(a,m)=1 
    я тут написал что-то, но это часть кода:
    ExpandedWrap disabled
      Program System_1;
      uses crt;
      var a,b,m,i:integer;
      begin
      write('a: ');
      read(a);
      write(' b: ');
      read(b);
      write('m: ');
      read(m);
      while (a<>m) do begin
      if (a > m) then a:=m
      else
      m:=a;
      end;
      end.
    Сообщение отредактировано: Simon25 -
      мне кто-то ответит?
        Если кто знает, что такое "алгоритм решение сравнения", то, может, и ответит.
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0164 ]   [ 15 queries used ]   [ Generated: 19.03.24, 03:46 GMT ]