program RadToGrad;
var
Rd, Gr, G, M, S: Real;
begin
Write ('Rd = ');
ReadLn (Rd);
Gr := Rd * 180 / pi;
G := Int (Gr);
M := Int (Frac (Gr) * 60);
S := Frac (Frac (Gr) * 60);
Write (Rd:4:2, ' Rad = ', G:3:0, ' гр. ', M:3:0, ' мин ', S:3:1,' сек');
ReadLn;
end.
program GradToRad;
var
Rd, Gr, G, M, S: Real;
begin
Write ('Введите грудусы, минуты, секунды: ');
ReadLn (G, M, S);
Gr := G + M / 60 + S / 3600;
Rd := Gr * Pi / 180;
Write ('Rad = ', Rd :15 :15);
ReadLn;
end.
program Protiv;
var
a, b, c: Integer;
begin
Write ('Введите три числа: ');
ReadLn (a, b, c);
if a = - b then
WriteLn (a, ' и ', b, ' взаимно противоположные.')
else if a = - c then
WriteLn (a, ' и ', c, ' взаимно противоположные.')
else if b = - c then
WriteLn (b, ' и ', c, ' взаимно противоположные.')
else
WriteLn ('Взаимно противоположных чисел нет.');
ReadLn;
end.
128₁₀ = 10000000₂
164₁₀ = 10100100₂
177₁₀ = 10110001₂
125₁₀ = 1111101₂
215₁₀ = 11010111₂
247₁₀ = 11110111₂
Объяснение:
128₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 0*2⁶ + 1*2⁷ = 10000000₂
164₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10100100₂
177₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ = 10110001₂
125₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 1111101₂
215₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ = 11010111₂
247₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ = 11110111₂
