Единицы длины пронумерованы следующим образом: 1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр. Дан номер единицы
длины (целое число в диапазоне 1 - 5) и длина отрезка в этих единицах
(вещественное число). Найти длину отрезка в метрах
Записать код в python

Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

program Case6;

var

 N:Integer;

 L:Real;

begin

 Write('Введите номер единицы длинны: ');

 Readln(N);

 Write('Введите длинну отрезка: ');

 Readln(L);

 Case N of

   1: Writeln(L/10);

   2: Writeln(L*1000);

   3: Writeln(L);

   4: Writeln(L/1000);

   5: Writeln(L/100);

 end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

program Case6;

var

 N:Integer;

 L:Real;

begin

 Write('Введите номер единицы длинны: ');

 Readln(N);

 Write('Введите длинну отрезка: ');

 Readln(L);

 Case N of

   1: Writeln(L/10);

   2: Writeln(L*1000);

   3: Writeln(L);

   4: Writeln(L/1000);

   5: Writeln(L/100);

 end;

end.

Case6. Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины (целое число в диапазоне 1–5) и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

program Case6;

var

N:Integer;

L:Real;

begin

Write('Введите номер единицы длинны: ');

Readln(N);

Write('Введите длинну отрезка: ');

Readln(L);

Case N of

  1: Writeln(L/10);

  2: Writeln(L*1000);

  3: Writeln(L);

  4: Writeln(L/1000);

  5: Writeln(L/100);

end;

end.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

program Case6;

var

N:Integer;

L:Real;

begin

Write('Введите номер единицы длинны: ');

Readln(N);

Write('Введите длинну отрезка: ');

Readln(L);

Case N of

  1: Writeln(L/10);

  2: Writeln(L*1000);

  3: Writeln(L);

  4: Writeln(L/1000);

  5: Writeln(L/100);

end;

end.

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17