• Помогите пожалуйста сделать задание 2 на языке Паскаль(алгоритм Евклида).

    question img

Ответы 6

  • uses - это подключает доп. модуль в данном случае crtcrt - это модуль для работы с экраном
  • спасибо вам,узнал на всякий случай,а то учитель еще придереться.
    • Автор:

      gabriel56
    • 6 лет назад
    • 0
  • на pascalabc.net выдал ошибку
  • что за ошибка?
    • Автор:

      avery3uf8
    • 6 лет назад
    • 0
  • program NOK; function nod1(X,Y:integer):integer; begin If X<>0 then nod1:=NOD1(Y mod X,X) else nod1:=Y; end; function NOK1(x,y:integer):integer; begin NOK1:=(X div NOD1 (X,Y))*Y; end; var M,N: integer;begin writeln('Ввод M и N :'); readln(M,N);writeln (NOK1(M,N)); end.
    • Автор:

      juicy
    • 6 лет назад
    • 0
  • Program Example_11;Var M, N: Integer;BeginWriteln('Введите два числа');Readln(M,N); {вводим два целых числа}If M>N Then M:=M Mod NElse N:=N Mod M;Until (M=0) Or (N=0);{до тех пор, пока одно из чисел не станет равно нулю}Writeln('НОД=', M+N)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}Readln;End.нок:program NOK; uses crt; function NOD(X,Y:integer):integer; begin If X<>0 then NOD:=NOD(Y mod X,X) else NOD:=Y; end; function NOK(X,Y:integer):integer; begin NOK:=(X div NOD (X,Y))*Y; end; var M,N: integer; begin clrscr; writeln('Ввод M и N :'); readln(M,N); writeln (NOK(M,N)); readln; end.
    • Автор:

      kenneth
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years