М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
tania071168
tania071168
27.02.2022 01:59 •  Информатика

По информатике даны два действительных положительных числа . найти среднее арифметическое и среднее этих чисел. паскаль

👇
Ответ:
саша4275
саша4275
27.02.2022
Program mat;
var a,b: integer;
c,d:real;
begin
readln(a,b);
c:=(a+b)/2;
d:=(a*b)/2;
writeln('среднее арифметическое = ',c,' среднее геометрическое = ', d);
end.

a и b - это те числа которые нужно ввести(два действительные натуральные положительные)
с - среднее арифметическое.
d- среднее геометрическое.
4,6(11 оценок)
Открыть все ответы
Ответ:
aryuna2003
aryuna2003
27.02.2022

Ультразвуковые датчики широко используются в качестве датчиков приближения (proximity), для дистанционного обнаружении различных объектов, измерения расстояний. Как правило, датчики действуют путем посылки короткого цуга ультразвуковых волн в направлении объекта обнаружения, который, отразившись от поверхности объекта, возвращается обратно. Затем, электронная схема производит расчет времени между моментом посылки сигнала и моментом приема отраженного эха. Расстояние является производной величиной от времени и скорости звука в окружающей среде.

В настоящее время на рынке представлен широкий выбор ультразвуковых датчиков в различных конструктивных исполнениях, действующих в различных акустических частотах. Палитра поведения различных акустических частот в схожих условиях окружающей среды не является одинаковой. В большинстве случаев не составит труда, руководствуясь характеристиками, данными производителем, выбрать подходящий датчик для своей задачи. Но в случаях, когда в работе устройств появляются сбои или возникают существенные ошибки в измерениях, необходимо произвести более тщательную оценку факторов влияния, таких как:

4,6(74 оценок)
Ответ:
Volosyaka
Volosyaka
27.02.2022
4)
var
    a, b: integer;

function max(a, b: integer): integer;
begin
    if a > b then max := a else max := b;
end;

begin
    readln(a, b);
    writeln(max(a, 2 * b) * max(2 * a - b, b));
end.

5)
const
    n = 10;

var
    a: array[1..n] of integer;
    i, s: integer;

begin
    for i := 1 to n do
    begin
        readln(a[i]);
        if i mod 2 = 0 then s := s + a[i];
    end;
    writeln(s);
end.

6)
const
    handsfree = false;

var
    a: array[1..100, 1..100] of real;
    product: real;
    i, j, m, n: integer;

begin
    {ввод матрицы}
    if handsfree then begin
        n := random(20) + 2;
        m := random(20) + 2;
    end
    else begin
        write('n, m =');
        readln(n, m);
    end;
    
    writeln('Данные матрицы:');
    for i := 1 to m do
    begin
        for j := 1 to n do
            if handsfree then begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:4, ' ')
            end
            else
                read(a[i, j]);
        writeln;
    end;
    
    product := 1;
    for i := 1 to m do
        for j := 1 to n do
            if a[i, j] > 0 then
                product := product * a[i, j];
    writeln('product = ', product);
end.
4,4(39 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ