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>
<span>В зелье Баба Яга положила мухоморы и паганки. Всего 26 грибов. Сообщение о том, что положила мухоморы, несет 4 бита информации. Сколько было поганок?
Ответ:2</span>
Анализируем алгоритм:
1) В переменной А производится подсчёт количества цифр числа, следовательно, в искомом числе будет 3 цифры.
2) В переменной В считается произведение всех цифр числа, в искомом числе оно будет равно 14.
Итак, 3 цифры, произведение которых равно 14.
(1*7*2=14)
Нам нужно найти наименьшее число. В самый старший разряд можем поставить число 1, в следующий разряд ставим 2 и в самый младший - 7.
Ответ: 127
1. Math.sqrt(a+b)
2. 3.7*f2-5.36*x*x*x
3. (u+2*v)*((1.89*Math.abs(u)+0.15-0.68*v)/(1+Math.sqrt(u*u+v*v)))