Напишите программы для решения задач. Используйте операции div и mod.

Напишите программы для решения задач. Используйте операции
div и mod.
1. Задано двузначное число. Найдите среднее арифметическое цифр числа.
2. Задано двузначное число. Найдите разность между количеством десятков и единиц.
3. Дана масса в граммах. Переведите ее в килограммы и
граммы.
4. Площадь участка измеряется в арах. Найдите количество
полных км2.

1. Найти среднее арифметическое цифр числа:

pascal
program AverageDigits;
var
number, tens, ones, average: integer;
begin
write(‘Введите двузначное число: ‘);
readln(number);

// вычисляем количество десятков и единиц
tens := number div 10;
ones := number mod 10;

// вычисляем среднее арифметическое
average := (tens + ones) div 2;

writeln(‘Среднее арифметическое цифр числа: ‘, average);
end.

2. Найти разность между количеством десятков и единиц:

pascal
program DifferenceTensOnes;
var
number, tens, ones, difference: integer;
begin
write(‘Введите двузначное число: ‘);
readln(number);

// вычисляем количество десятков и единиц
tens := number div 10;
ones := number mod 10;

// вычисляем разность
difference := abs(tens — ones); // используем функцию abs для получения положительного значения

writeln(‘Разность между количеством десятков и единиц: ‘, difference);
end.

3. Перевести массу из граммов в килограммы и граммы:

pascal
program ConvertMass;
var
mass, kilograms, grams: integer;
begin
write(‘Введите массу в граммах: ‘);
readln(mass);

// переводим в килограммы и граммы
kilograms := mass div 1000;
grams := mass mod 1000;

writeln(‘Масса в килограммах: ‘, kilograms, ‘ кг’);
writeln(‘Масса в граммах: ‘, grams, ‘ г’);
end.

4. Найти количество полных квадратных километров в площади участка, измеренной в арах:

pascal
program SquareKilometers;
var
areaInAcres, squareKilometers: real;
begin
write(‘Введите площадь участка в арах: ‘);
readln(areaInAcres);

// переводим в квадратные километры
squareKilometers := areaInAcres * 0.01; // 1 ар = 0.01 км^2

writeln(‘Количество полных квадратных километров: ‘, squareKilometers:0:2, ‘ км^2’);
end.

Эти программы помогут вам понять, как использовать операции `div` и `mod` для решения различных задач в Pascal, связанных с целочисленными данными.