Из предложенных сообщений выбрать процедурное:

1)Чтобы найти пощадь прямоугольника, надо измерить его длину и ширину, а затем полученные величины перемножить
2)Луна- спутник Земли
3)Температура кипения воды 100 °С
4)Площадь Тихого океана 178,6 млн км².
5)Операционная система Windows создана компанией Microsoft.

1) 221₃ = 25₁₀

2) 444₅ = 124₁₀

3) 232₄ = 46₁₀

4) 1000₂ = 8₁₀

Объяснение:

1) 222₃ = 2 * 3² + 2 * 3¹ + 2 * 3⁰ = 2 * 9 + 2 * 3 + 2 * 1 = 18 + 6 + 2 = 26₁₀

  222₃

-

       1₃

  221₃

221₃ = 2 * 3² + 2 * 3¹ + 1 * 3⁰ = 2 * 9 + 2 * 3 + 1 * 1 = 18 + 6 + 1 = 25₁₀

2) 1000₅ = 1 * 5³ + 0 * 5² + 0 * 5¹ + 0 * 5⁰ = 1 * 125 + 0 * 25 + 0 * 5 + 0 * 1 = 125₁₀

  1000₅

-

        1₅

   444₅

1. Занимаем 1 из 1 остаётся 0 (в следующий разряд переносится 10₅)

2. Занимаем 1 из 10 остаётся 4₅  (в следующий разряд переносится 10₅, 10₅ - 1₅ = 4₅)

3. Занимаем 1 из 10 остаётся 4₅  (в следующий разряд переносится 10₅, 10₅ - 1₅ = 4₅)

4. Вычитаем 1 из 10 получаем 4₅  (10₅ - 1₅ = 4₅)

444₅ = 4 * 5² + 4 * 5¹ + 4 * 5⁰ = 4 * 25 + 4 * 5 + 4 * 1 = 100 + 25 + 4 = 124₁₀

3) 233₄ = 2 * 4² + 3 * 4¹ + 3 * 4⁰ = 2 * 16 + 3 * 4 + 3 * 1 = 32 + 12 + 3 = 47₁₀

  233₄

-

       1₄

  232₄

232₄ = 2 * 4² + 3 * 4¹ + 2 * 4⁰ = 2 * 16 + 3 * 4 + 2 * 1 = 32 + 12 + 2 = 46₁₀

4) 1001₂ = 1 * 2³ + 0 * 2² + 0 * 2¹ + 1 * 2⁰ = 1 * 8 + 0 * 4 + 0 * 2 + 1 * 1 = 8 + 1 = 9₁₀

  1001₂

-

        1₂

  1000₂

1000₂ = 1 * 2³ + 0 * 2² + 0 * 2¹ + 0 * 2⁰ = 1 * 8 + 0 * 4 + 0 * 2 + 0 * 1 = 8 + 1 = 8₁₀

//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20.
 //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, 
//когда были заморозки. Гарантируется, что хотя бы в один день были заморозки

var i,x,y  : shortint;
    s      : real;
    t      : array [1..30] of shortint;
begin
  randomize;
  For i:=1 to 30 do
    begin
     t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20)
     writeln (i,'  ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив  
   end;
 for i:=1 to 30 do
   begin
     if t[i]<0 then
        begin
         x:=x+t[i];
         y:=y+1;
       end;
   end;
   s:=x/y;
   writeln ('Средняя температура по дням, когда были заморозки ',s:0:2);
end.