1) перевести 982₁₀ в семеричную сс2) перевести 5.875₅ в двоичную сс3) перевести 2012₃ в семеричную сс4)32₈ + 100101₂ = ?

982₁₀  = 2602₇

2) ошибка

2012₃ = 113₇

32₈ + 100101₂ = 63₁₀

Объяснение:

982₁₀ = 2*7⁰ + 0*7¹ + 6*7² + 2*7³ = 2602₇

2012₃ = 2*3⁰ + 1*3¹ + 0*3² + 2*3³ = 59₁₀

59₁₀ = 3*7⁰ + 1*7¹ + 1*7² = 113₇

32₈ = 2*8⁰ + 3*8¹ = 26₁₀

100101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 37₁₀

1

Заполнить файл f целыми числами, полученным генератором случайных чисел

16.05.2016, 14:56. Просмотров 1699. ответов 3

Метки нет (Все метки)

Заполнить файл f целыми числами, полученными с генератора случайных чисел. Получить в файле g все компоненты файла f, которые делятся на m и не делятся на п.

0

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

16.05.2016, 14:56

ответы с готовыми решениями:

Заполнить файл f целыми числами, полученными с генератора случайных чисел

Доброго всем времени суток кто чем может)) 1.Заполнить файл f целыми числами,...

Заполнить файл f целыми числами, полученными с генератора случайных чисел

Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вывести на экран...

Заполнить файл f целыми числами, полученными с генератора случайных чисел

Заполнить файл f целыми числами, полученными с генератора случайных чисел. Вычислить...

Заполнить файл f натуральными числами, полученными с генератора случайных чисел

Заполнить файл f натуральными числами, полученными с генератора случайных чисел. Найти...

3

Type
  num=double; { в этом месте можно сменить тип на иной }

function Legal(a,b,c:num):boolean;
  { возвращает True, если из отрезков длиной a,b,c
    можно построить треугольник }
begin
  Legal:=(a+b>c) and (a+c>b) and (b+c>a)
end;

function Med(a,b,c:num):num;
  { возвращает длину медианы, проведенную к стороне а }
begin
  Med:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/2
end;

procedure Med3(a,b,c:num; var m1,m2,m3:num);
  { возвращает длины m1,m2,m3 всех медиан треугольника,
    построенного из отрезков длиной a,b,c.
    При этом m1- длина медианы, проведенной к стороне а,
    m2- дилна медианы,проведенной к стороне b и т.д.
    Если треугольник построить нельзя, m1=m2=m3=0 }
begin
  if Legal(a,b,c) then
  begin m1:=Med(a,b,c); m2:=Med(b,a,c); m3:=Med(c,a,b) end
  else begin m1:=0; m2:=0; m3:=0 end
end;

{ основная программа }
var
  a,b,c,m1,m2,m3:num;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  Med3(a,b,c,m1,m2,m3);
  if m1>0 then begin
    Med3(m1,m2,m3,m1,m2,m3);
    if m1>0 then Writeln('Длины медиан: ',m1,', ',m2,', ',m3)
    else Writeln('Из полученных медиан нельзя построить треугольник.')
    end
  else
    Writeln('Невозможно построить треугольник с такими сторонами.')
end.

Тестовое решение:
Введите длины сторон треугольника: 14.3 18.9 8.6
Длины медиан: 10.725, 14.175, 6.45