Pascal
Program change;
Var x, y, a: integer;
Begin
Readln(x, y);
If x > y then
Begin
a := x;
x := y;
y:= a;
End;
Writeln(x, y);
End.
Твоя программа получает на вход два числа. Затем она их сравнивает и, если х > у, меняет их значения местами через дополнительную переменную а. Затем выводятся х и у на экран.
Ответ: в номере 1 ответ 3.
Подробно написал как из десятичной в двоичную переводить. Тут все просто.
Объяснение:
Дополню, 1 ответ остаётся
Во втором Ответ 4 единицы
Если число делится на 3 и на 5, то оно делится и на их произведение, т.е. на 15.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n mod 15=0 then Writeln('Число делится на 3 и 5 одновременно')
else Writeln('Число не делится на 3 и 5 одновременно')
end.
<u>Пример</u>
Введите натуральное число: 1115
Число не делится на 3 и 5 одновременно
Функция sqr(x) служит для возведения аргумента х в квадрат, поэтому представим a¹⁰ в виде максимально возможного набора операций возведения в квадрат.
a¹⁰ = a²·a⁸ = a²·(a⁴)² = a²·[(a²)²]²
var
a:real;
begin
Write('a=');
Read(a);
Writeln(a,'^10=',sqr(a)*sqr(sqr(sqr(a))))
end.
Тестовые решения
a=2
2^10=1024
a=3.18
3.18^10=105747.765633159
a=10
10^10=10000000000
a=318.53
318.53^10=1.07523505784868E+25