Коля или Сережа
Объяснение:
Если Сережа оба раза сказал правду, то краску пролил Коля. Тогда Вася тоже оба раза сказал правду, а Коля - дважды соврал, подходит.
Если Сережа хотя бы раз соврал, то краску пролил не Коля. Тогда второе утверждение Васи ложно, а тот, кто всегда говорит правду, - это Коля. Значит, краску разлил Сережа, при этом Сережа соврал, говоря о себе, и сказал правду о Васе, а Вася дважды соврал.
Обратите внимание, что "может сказать правду, а может и ложь" не означает, что мальчик один раз сказал правду, один раз солгал. Если бы это было бы так, то ответ был бы однозначен - краску пролил Сережа
Таблица приведена во вложении, +/- значит, например, что если виноват Коля, кто-то сказал правду, а если Сережа - солгал.
Объяснение:
Датчики ультразвукового излучения используются для обнаружения объектов, контроля их движения и измерения расстояний до них. Принцип действия состоит в следующем. Прибор излучает звуковые колебания с частотой больше 20000 герц. При встрече с объектом они отражаются, попадают в приемник, и фиксируется. Электронная схема отсчитывает время, которое с момента импульса до момента приема эха. Расстояние высчитывается по формуле: R= tV/2, где t – время между импульсом и приемом эха, V — скорость звука. Произведение делится на 2, потому что звуковые волны проходят путь, равный двойному расстоянию между объектом и датчиком. Скорость звука в различных средах неодинаковая: в воздухе это 331 м/сек, в дереве –1500, в воде – 1430.
Расстояние, на котором обнаруживаются объекты – до 8 метров, при условии, что у них твердая и гладкая поверхность. Если они изготовлены из мягкого, пористого материала, поглощающего звук – расстояние сокращается.
var
Arr: array [1..255] of byte;
i, N, A, B: byte;
begin
randomize; //В PascalABC.NET можно убрать
write('Введите количество элементов массива: '); readln(N);
writeln;
writeln(' ***Исходный массив*** ');
for i := 1 to N do
begin
Arr[i] := random(50);
write(Arr[i], ' ');
end;
writeln; writeln;
write('Введите диапазон A и B: '); readln(A, B);
writeln; writeln('Номера элементов');
for i := 1 to N do
if ((Arr[i] >= A) and (Arr[i] <= B)) then
write(i, ' ');
writeln;
readln;
end.