Описать функцию, позволяющую находить наибольший общий делитель двух заданных чисел. помогите плиииииииззз. заранее спасибо.
10-11 класс
|
var a,b:integer;
begin
writeln ('введи 2 числа');
readln (a,b);
while a<>b do
if a>b then a:=a-b
else b:=b-a;
writeln (a);
end.
Другие вопросы из категории
данный массив.
s: = 0;
n : = 10 ;
for i : = 1 to n do
begin
if i = n - i then s : = s + A[i] + A[i + 1];
end;
В начале выполнения этого фрагмента в массиве находились числа 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, т. е. элемент А[0]=0, А[1]=2 и т. д. Чему будет равно значение переменной s после выполнения данной программы?
1) 0
2) 11
3) 22
4) 110
а)удвоенное значение числа,если число положительное; б)абсолютное значение числа,если число отрицательное.
2)Напишите программу которая анализирует введенное с клавиатуры число на четность и сообщает о результате.
Читайте также
числа не равны, большее число заменяется разностью этих чисел. Полученное в результате число и есть наибольший общий делитель. Какие элементы, пронумерованные от 1 до 5, нужно вставить в блок-схему на места, обозначенные буквами от А до Д, чтобы получившаяся блок-схема соответствовала алгоритму Евклида?
делителя двух натуральных чисел, используя алгоритм Евклида.
дробь представлять двумя целыми числами: первое число представляет числитель дроби, а второе - знаменатель. В процессе вычислений требуется сокращать дроби на их наибольший общий делитель (НОД). Если одно из чисел равно нулю, то НОД берем равным 1. Разработать также отдельные процедуры для ввода (на экран выводится надпись: «Введите числитель и знаменатель обыкновенной дроби») и вывода обыкновенных дробей (a/b).