Воскресенье, 05.01.2025
Pascal 4 All
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории каталога
Численные методы [5]
Графы [2]
Действия с графами
Наш опрос
А вы знали, что кликнув на обьявление в правом блоке раз в день Вы поможете сайту?
Результаты | Архив опросов
Всего ответов: 332

Главная » Статьи » Аналитические задачи » Численные методы

  
Найти остаток от деления числа в степени на другое число.

Uses CRT;
Var a,b,c: Integer;

Function ModExp(a, d, m: LongInt): LongInt;
Var b: LongInt;
Begin
b := 1;
While (d > 0) do
  Begin
  If (d mod 2 = 0) then
  Begin
  d := d div 2;
  a := (a * a) mod m;
  End
  Else
  Begin
  Dec(d);
  b := (b * a) mod m;
  End;
  End;
ModExp := b;
End;

Begin
ClrScr;
Write('Число: '); Readln(a);
Write('Степень: '); Readln(b);
Write('Делитель: '); Readln(c);
Writeln('Остаток: ',ModExp(a,b,c));
ReadKey;
End.


Источник:

Категория: Численные методы | Добавил: Seqular (12.01.2009) | Автор: Дмитрий
Просмотров: 4035 | Комментарии: 1 | Рейтинг: 3.0/2 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2025
Используются технологии uCoz
style=