1. Главная
  2. Библиотека
  3. Информатика
  4. Используя вспомогательные алгоритмы и подпрограммы, задайте в Паскале вычисление наибольшего общего делителя для произволь...

Используя вспомогательные алгоритмы и подпрограммы, задайте в Паскале вычисление наибольшего общего делителя для произвольных входных данных.

«Используя вспомогательные алгоритмы и подпрограммы, задайте в Паскале вычисление наибольшего общего делителя для произвольных входных данных.»
  • Информатика

Условие:

Используя вспомогательные алгоритмы и подпрограммы, задайте в Паскале вычисление наибольшего общего делителя для произвольных входных данных. Входные данные задайте самостоятельно путем ввода с клавиатуры.

Программная реализация обязательна. На проверку можно прислать коды программ и результаты работы в виде скриншота окна программы Паскаль с отображением кода и результата работы

Решение:


var

a, b: integer;

procedure nod (var a,b: integer); //процедура НОД

var n: integer;

begin

repeat //цикл, пока а или b не станет равным 0

if a b then //если а больше чем b

a := a mod b //то ищем остаток от деления а на b

else //если а...

Не нашел нужную задачу?

Воспользуйся поиском

Выбери предмет