Var x,y,a,b:integer;
begin
write('x, y:');
readln(x,y);
if (x>0)and(y>0) then
begin
a:=x; b:=y;
while a<>b do
if a>b then a:=a-b else b:=b-a;
writeln('НОД(',x,',',y,') = ',a);
end
else writeln('Ошибка ввода');
end.

Пример:
<span>x, y:
50 125
НОД(50,125) = 25</span>

0 0

3 года назад

На столе лежат 27 монет. одна из них - фальшивая. как при помощи трёх взвешиваний найти фальшивую монету? ( фальшивая монета лег

NikOn233

Элементарно!
1) Разбиваем 27 монет на 3 кучки по 9 монет. Сравниваем 2 кучки.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 9 монет, одна фальшивая. Осталось 2 взвешивания.
2) Точно также разбиваем 9 монет на 3 по 3 монеты и сравниваем две.
Какая легче - в той и фальшивая монета. Если они равны, то фальшивая в третьей кучке, которую не взвешивали.
Получилась кучка из 3 монет, одна фальшивая. Осталось 1 взвешивание.
3) Сравниваем 2 монеты. Какая легче - та и фальшивая.
Если они равны, то фальшивая третья, которую не взвешивали.

0 0

4 года назад

СРОЧНО!!! Помогите решить пожалуйста 1.Какое наибольшее десятичное число можно записать четырьмя цифрами в двоичной системе счис

nataljakra

1)A
2)Д
3)Д

(20символов)

0 0

4 года назад

С клавиатуры вводятся 4 положительных числа - длины отрезков. вывести на экран построчно сочетания длин сторон, из которых можно

Shkuravedrovna

Смотрите документ, там текст программы. Картинки -- демонстрация работы.

0 0

3 года назад