Переменной F присвоить значение, равное 125
Var a, b, k:integer;
begin
readln(a);
readln(b);
if (a+b)>10 then
writeln(2*a*b)
else
if (a>b) then
begin
k:=a;
a:=a+b;
b:=k-b;
end
else
begin
k:=b;
b:=b+a;
a:=k-a;
end;
writeln(a, ' ', b);
end.
1. <span>2) МАКСИМ
2. </span><span>4) КСЕНИЯ.
3. </span><span>1) ИРИНА
4. </span><span>1) Верблюд
5. </span><span>2) Кенгуру
6. </span><span>4) Страус
7. </span><span>1) ЖАРА
</span>
1) 34CE16 это шестнадцатиричная система счисления. Если перевести её в двоичную получится число 1101001100111000010110
Остаётся только посчитать нули и единицы
2) если перевести число 5768 в двоичную систему, то получится число 1011010001000
Считайте единицы и нули.
Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6