ответ: при s = 17
s = 0 | n = 4096
s = 1 | n = 4096
s = 2 | n = 2048
s = 3 | n = 2048
s = 4 | n = 2048
s = 5 | n = 2048
s = 6 | n = 1024
s = 7 | n = 1024
s = 8 | n = 1024
s = 9 | n = 1024
s = 10 | n = 512
s = 11 | n = 512
s = 12 | n = 512
s = 13 | n = 512
s = 14 | n = 256
s = 15 | n = 256
s = 16 | n = 256
s = 17 | n = 256
s = 18 | n = 128
s = 19 | n = 128
s = 20 | n = 128
s = 21 | n = 128
s = 22 | n = 64
s = 23 | n = 64
s = 24 | n = 64
s = 25 | n = 64
s = 26 | n = 32
s = 27 | n = 32
s = 28 | n = 32
s = 29 | n = 32
s = 30 | n = 16
s = 31 | n = 16
s = 32 | n = 16
s = 33 | n = 16
s = 34 | n = 8
s = 35 | n = 8
s = 36 | n = 8
s = 37 | n = 8
s = 38 | n = 4
s = 39 | n = 4
s = 40 | n = 4
s = 41 | n = 4
s = 42 | n = 2
s = 43 | n = 2
s = 44 | n = 2
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.
