Дан радиус окружности r составить программу вычисления периметра равностороннего треугольника вписанного в окружность радиуса r (R=a√3/3) радиус r вводится с клавиатуры

сад гад год код кот                        

var a: array [1..8,1..5]of integer;

s,i,k: integer;

begin

  randomize;

  for i: = 1 to 8 do begin

        for k: = 1 to 5 do begin

              a[i,k]: = random(20)-10;

              write(a[i,k]: 3,' ');

              if a[i,k] mod 2 = 0 then s: =s+a[i,k];

        end;

        writeln;

  end;

  writeln('s=',s);

end.

"доброе утро" в 7: 00"доброго дня" в 14: 00"доброго вечера" в 17: 00"спокойной ночи" в 21: 00

в скобках указывала основание системы счисления.

1 шаг) переводим в десятичную систему счисления: 631 (7) = 6*7^2 + 3*7^1 + 1*7^0 = 316 (10)

2 шаг) переводим из десятичной системы счисления в двоичную: 316 : 2 = 158 (ост. 0)158 : 2 = 79 (ост. 0)79 : 2 = 39 (ост. 1)39 : 2 = 19 (ост. 1)19 : 2 = 9 (ост. 1)9 : 2 = 4 (ост. 1)4 : 2 = 2 (ост. 0)2: 2 = 1 (ост. 0)

316 (10) = 100111100 (2)

ответ: 100111100