begin var a:=ReadInteger('Введите a от 1 до 30:'); if a<1 then begin Writeln('Неверно'); Exit end; var b:=ReadInteger('Введите b от '+a.ToString+' до 30:'); if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end; var P:=ArrFill(30,0); for var i:=a-1 to b-1 do P[i]:=2; P.Println end.
Пример Введите a от 1 до 30: 2 Введите b от 2 до 30: 10 0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
Звук имеет две основные характеристики – частоту и интенсивность (она же громкость) .
С частотой все просто. Звуковые волны — это механические колебания воздуха. Частота означает, сколько полных колебаний в секунду совершает звуковая волна. Единица измерения частоты – Герц (названа в честь немецкого физика) . 100 Герц – сто колебаний в секунду и т. д. Частота звука определяет то, каким образом он звучит для нашего уха.
С громкостью дело обстоит несколько сложнее. Так как слуховой орган необычайно чувствителен, соотношение интенсивностей звука в диапазоне слышимости человека составляет 1:1013. Оперировать такими величинами довольно неудобно. Поэтому, для удобства проведения измерений, была введена относительная единица. Если представить силу звука на пороге слышимости равной 1, а все более громкие звуки выражать в десятичных логарифмах отношения их интенсивности к этому значению, то вместо соотношения 1:1013 мы получим ряд чисел от 0 до 13. Эта единица получила название Бел в честь американского ученого – изобретателя телефона Александра Белла.
// Внимание! Если программа не работает, обновите версию!
1. Решение без проверки вводимых данных
begin
var a,b:integer;
Read(a,b);
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2. Решение с контролем ввода
begin
var a:=ReadInteger('Введите a от 1 до 30:');
if a<1 then begin Writeln('Неверно'); Exit end;
var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
Пример
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0