1) Определение плотности материалов

Чтобы выяснить, какой из материалов обладает большей плотностью, нам необходимо воспользоваться формулой для расчета плотности:

Плотность (ρ) = Масса (m) / Объем (V)

Таким образом, для каждого материала мы можем рассчитать его плотность, а затем сравнить полученные значения. Вот шаги, которые нужно выполнить:

1. Измерить массу первого материала (m1) и его объем (V1).
2. Измерить массу второго материала (m2) и его объем (V2).
3. Вычислить плотность первого материала: ρ1 = m1 / V1.
4. Вычислить плотность второго материала: ρ2 = m2 / V2.
5. Сравнить ρ1 и ρ2. Если ρ1 > ρ2, то первый материал плотнее, если ρ1 < ρ2, то второй материал плотнее.

Программа на Паскале для определения плотности:

program DensityComparison;
var
    m1, V1, m2, V2: real;
    rho1, rho2: real;
begin
    writeln('Введите массу первого материала:');
    readln(m1);
    writeln('Введите объем первого материала:');
    readln(V1);
    writeln('Введите массу второго материала:');
    readln(m2);
    writeln('Введите объем второго материала:');
    readln(V2);

    rho1 := m1 / V1;
    rho2 := m2 / V2;

    writeln('Плотность первого материала: ', rho1:0:2);
    writeln('Плотность второго материала: ', rho2:0:2);

    if rho1 > rho2 then
        writeln('Первый материал плотнее.')
    else if rho1 < rho2 then
        writeln('Второй материал плотнее.')
    else
        writeln('Оба материала имеют одинаковую плотность.');
end.

2) Определение делимости чисел

Чтобы определить, является ли число A делителем числа B, мы можем воспользоваться следующим правилом:

Число A является делителем числа B, если результат деления B на A не имеет остатка. Это можно проверить с помощью операции модуля:

B % A == 0

Аналогично, чтобы проверить, является ли B делителем A, нужно выполнить ту же проверку в обратном порядке.

Вот шаги для решения задачи:

1. Ввести два числа A и B.
2. Проверить, является ли A делителем B (B % A == 0).
3. Проверить, является ли B делителем A (A % B == 0).

Программа на Паскале для проверки делимости:

program DivisibilityCheck;
var
    A, B: integer;
begin
    writeln('Введите число A:');
    readln(A);
    writeln('Введите число B:');
    readln(B);

    if (B mod A = 0) then
        writeln(A, ' является делителем ', B)
    else
        writeln(A, ' не является делителем ', B);

    if (A mod B = 0) then
        writeln(B, ' является делителем ', A)
    else
        writeln(B, ' не является делителем ', A);
end.