Второе задание не поняла, тк при сложении получаются двойки, а такие числа невозможно переводить, видимо я что-то не понимаю
а третье задание вот:
11111₂-11101₂=10₂
1¹0⁰=1·2¹+0·2⁰=2₁₀
а для перевода в восьмеричную и шестнадцатеричную систему счисления требуется перевести в десятичную
следовательно
10₂=2₈
10₂=2₁₆
#include <iostream>
using namespace std;
int main()
{
int a = 0, b = 0, t = 0, M = 0;
int R = 0, F = 0, x = 0;
F = x * x - 8 * x + 10;
a = -5;
b = 5;
M = a;
for(;t == a;)
{
if(t > R)
{
M = t;
R = F;
}
}
}
Задание номер 1 - ответ будет 20, задание номер 2 - "Х = 5", так как действия сложения выполняются при условии что А будет меньше 0. Но данное условие не соответствует.
Задание номер 3 на языке PASCAL:
program example1;
var number : integer;
begin
read(n1, n2);
if(n1>n2){
number = n1/n2
write(n1, number);
}else if(n2>n1){
number = n2/n1;
write(n2, number);
}else{
write("Оба числа равны!");
}
end;
Задание номер - 4.
дано число 15
1) умножить на 2
2) вычти 3
3) вычти 3
4) вычти 3
5) умножить на 2
то есть для получения числа 42 мы сделали следующее с числом 15:
15 * 2 =30
30 - 3 -3 -3 = 21
21 * 2 = 42
конец данного задания
Var
f: file of integer;
i, n, x, t, k, max: integer;
s: integer;
begin
randomize;
write('n=');
readln(n);
assign(f, 'numbers.dat');
rewrite(f);
max := -1;
for i := 1 to n do
begin
x := random(4800) + 20;
write(f, x);
write(x, ' ');
if x > max then max := x;
end;
writeln;
seek(f, 0);
k := 0;
while not eof(f) do
begin
read(f, x);
t := x;
s := 0;
while t > 0 do
begin
s := s + sqr(t mod 10);
t := t div 10;
end;
if x mod s = 0 then k := k + 1;
if x > max - 50 then write(x, ' ');
end;
writeln;
writeln(k);
end.