Составьте алгоритм, блок-схему в программу для определения площади кольца, если внутренний радиус равен R1 см, а внешний радиус равен R2 см. В качестве PI использовать значение 3,14
Var m, n: integer; s1, s2, s3: string; ms: array[1..9] of string; md: array[1..9] of string; m1: array[11..19] of string; me: array[1..9] of string; flag: boolean;
Write('Введите целое число от 1 до 1000: '); Readln(m); if (m < 1) or (m > 1000) then Writeln('Шутки шутим?') else if m = 1000 then Writeln('Одна тысяча ' + s3) else begin { сотни } n := m div 100; if n > 0 then begin Write(ms[n]); flag := true end; { десятки } m := m mod 100; if m = 0 then Writeln(' ', s3) else begin if (m > 10) and (m < 20) then begin if flag then Write(' '); Writeln(m1[m], ' ', s3) end else if m > 0 then begin n := m mod 10; m := m div 10; if m > 0 then begin if flag then Write(' ') else flag := true; Write(md[m]) end; if n <> 0 then begin { единицы } if flag then Write(' '); Write(me[n], ' '); case n of 1: Writeln(s1); 2..4: Writeln(s2); else Writeln( s3) end end else Writeln(' ', s3) end end end end.
Тестовое решение: Введите целое число от 1 до 1000: 314 триста четырнадцать рублей
32=
i = 5 бит.
ответ: 5 бит.
2. V = K * I, где
V - объем,
K - количество символов в сообщении,
I - количество бит на 1 символ.
N =
32=
i = 5 бит.
V = K * I,
V = 10 * 5 = 50 бит.
ответ: 50 бит.
3. N₁ =
32 =
i = 5 бит.
N₂ =
64 =
i = 6 бит.
V₁ = K * I,
V₁ = 50 * 5 = 250 бит.
V₂ = 40 * 6 = 240 бит.
V₁ - V₂ = 10 бит.
ответ: 10 бит.
4. K = n*x*y, где
K - количество символов в сообщении,
n - число страниц,
x - число строк,
y - число символов в строке.
n = 30,
x = 40,
y = 50,
K - ?
K = n*x*y,
K = 30*40*50 = 60000 символов.
ответ: 60000 символов.