Информатика | 5 - 9 классы
Помогите пожалуйста сделать задание 2 на языке Паскаль(алгоритм Евклида).
Помогите пожалуйста сделать задание?
Помогите пожалуйста сделать задание.
Помогите пожалуйста сделать два задания 10 и 11?
Помогите пожалуйста сделать два задания 10 и 11.
Пожалуйста помогите сделать задание в?
Пожалуйста помогите сделать задание в?
Пожалуйста помогите сделать второе задание?
Пожалуйста помогите сделать второе задание.
Помогите сделать эти задания, пожалуйста, срочно надо)))?
Помогите сделать эти задания, пожалуйста, срочно надо))).
Помогите пожалуйста с заданием все ли мы правильно сделали?
Помогите пожалуйста с заданием все ли мы правильно сделали?
Помогите пожалуйста срочно сделать 3 задание?
Помогите пожалуйста срочно сделать 3 задание!
Помогите пожалуйста сделать задание на листочке, срочно?
Помогите пожалуйста сделать задание на листочке, срочно.
Задание 3?
Задание 3!
Надо сделать в паскаль!
Табличку не надо!
Помогите пожалуйста!
Сделать нужно через язык программирования, задание на листе?
Сделать нужно через язык программирования, задание на листе.
Вы находитесь на странице вопроса Помогите пожалуйста сделать задание 2 на языке Паскаль(алгоритм Евклида)? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся 5 - 9 классов. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
Program Example_11 ;
Var M, N : Integer ;
Begin
Writeln('Введите два числа') ;
Readln(M, N) ; {вводим два целых числа}
If M> ; N Then M : = M Mod N
Else 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
IfX< ; > ; 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.