1) Вычислить
11100101011(2)+1101111101(2)=101010101000(2)
1000001(2)-11111(2)=100010(2)
1437(8)+7465(8)=11124(8)
70000(8)-6453(8)=61325(8)
ABCDF(16)+98765(16)=144444(16)
F000001C(16)-AABBFF(16)=EF55441D(16)
2) Перевести число111111101001010010100011100 из 2-ичной системы счисления в 8-ичную и 16-ичную системы счисления
111 111 101 001 010 010 100 011 100(2) = 775122434(8)
111 1111 0100 1010 0101 0001 1100(2) = 7F4A51C(16)<span>
</span>
Var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX
#include <iostream>
using namespace std;
int main(){
int n;
cin>>n;
while (n !=0)
{
if (n%10!=0)
cout<<n%10;
n/=10;
}
}
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
// сортировка выбором
procedure SortBySelect(var a:array of integer);
begin
var j:=a.High;
while j>0 do begin
var mx:=a[0];
var imx:=0;
for var i:=1 to j do
if a[i]>mx then begin mx:=a[i]; imx:=i end;
a[imx]:=a[j];
a[j]:=mx;
j-=1
end
end;
begin
var a:=ArrRandom(10,-20,20); a.Println;
SortBySelect(a); a.Println
end.
<u>Пример</u>
-6 14 2 -6 -6 -9 20 -18 13 -18
-18 -18 -9 -6 -6 -6 2 13 14 20