Var m,b,ost,c,result:integer;
////M<B
begin
ost:=1;
writeln ('Введите два числа');
readln(b,m);
while ost<>0 do
begin
if m>b then
begin
c:=m;
m:=b;
b:=c;
end;
ost:= b mod m;
result:=m;
b:=ost;
end;
writeln('НОД: ',m);
end.
Ответ:
Язык: Pascal.
var
a: array [1..20] of integer; {объявляем целочисленный массив на 20 элементов}
i, min, t, m: integer; {i - счетчик, min - минимум, t, m - временные переменные}
begin
{рандом 20 чисел в диапазоне [-20;12]}
randomize;
for i:=1 to 20 do
a[i]:=random(33)-20;
min:=a[1]; //присваиваем минимуму первый элемент.
{цикл начинается с 2, чтобы не делать лишнюю итерацию}
for i:=2 to 20 do
begin
{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}
if min > a[i] then
begin
min:=a[i];
m:=i;
end;
end;
{выводим старый массив}
Writeln('Старый массив:');
for i:=1 to 20 do
writeln(a[i]);
{меняем местами последний элемент с минимальным}
t:=a[20];
a[20]:=min;
a[m]:= t;
{выводим новый массив}
Writeln('Новый массив:');
for i:=1 to 20 do
writeln(a[i]);
end.
Ответ:
1051 двоек
Объяснение:
9^2200 + 3^1200 − 3^150 + 6 = 3^4400 + 3^1200 - 3^150 + 6
3^1200 - 3^150 в троичной системе записываются, как 1050 двоек и 150 нулей.
6 записывается как 20. - 1 двойка
3^4400 записывается как 1 и 4400 нулей.
при сложении получается в целом 1051 двоек
3 * a - b = 3 * 8 - 3 = 24 - 3 = 21 ⇒ a
( a / 3 ) * ( b + 2 ) = <span>( 21 / 3 ) * ( 3 + 2 ) = 7 * 5 = 35 ⇒ b
Ответ: 35
</span>
Например, "Сегодня на улице -10 градусов" - это объективная информация, полученная с термометра. То есть никто с этим спорить не будет.
А еще можно сказать: "Сегодня на улице холодно", это уже будет субъективная информация. Как считаю только я, или еще кто-то.
Проще говоря, объективная информация не зависит от мнения кого-либо.
Еще примеры:
"Радиация увеличилась в два раза"
"Сегодня состоится солнечное затмение"
"Этот дом скоро будет отремонтирован"