На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania 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 -
мне кто-то ответит?
Если кто знает, что такое "алгоритм решение сравнения", то, может, и ответит.
1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
0 пользователей:


Рейтинг@Mail.ru
[ Script Execution time: 0,0721 ]   [ 19 queries used ]   [ Generated: 19.04.19, 06:31 GMT ]