В традиционной японской системе измерения длин используют величину тё, равную 36 дзё. Еще есть величина сяку, состоящая из 10 сун. Известно, что 1 сун = 3,03 см, а 1 тё = 109 м. Определите, сколько сяку в 1 дзё

Дано:

1 тё = 36 дзё

1 сяку = 10 сун

1 сун = 3,03 см

1 тё = 109 м

Расчеты:

1 сяку = 10 сун = 3,03 см * 10 = 30,3 см

1 тё = 36 дзё = 109 м ⇒ 1 дзё = 109 м / 36 = 3,0278 м ≈ 303 см

1 дзё = X сяку

1 дзё = 303 см / 1 сяку = 303 см / 30,3 см = 10 сяку

ответ: 10

1) 

var x: array[12] of real;

i: integer;

begin

    for i: =1 to 12 do

    begin

      readln(x[i]);

      x[i]: =x[i]-23;

    end;

    for i: =1 to 12 do

      writeln(x[i])

end.

2)

var m: array[100] of integer;

i: integer;

begin

    for i: =1 to 100 do begin

      readln(m[i]);

        if(m[i] mod 2=0) then m[i]: =m[i]*m[i]

        else   m[i]=2*m[i];

    end;    

    for i: =1 to 100 do

      writeln(m[i]);

end.

3)

var price: array[20] of real;

i: integer;

minprice: real;

begin

    minprice: =10000;

    for i: =1 to 20 do

    begin

      readln(price[i]);

      if (price[i]< minprice) then minprice: =price[i];

    end;

    writeln(minprice)

end.

4) 

var m: array[100] of integer;

i, counter: integer;

begin

    readln(m[1]);

    counter: =0;

    for i: =2 to 100 do begin

      readln(m[i]);

      if ((m[i] mod 2=1) and (m[i-1] mod 2=1)) then inc(counter);

    end;

    writeln(counter)

end.