Давайте разберем обе задачи по порядку и напишем программы на языке Паскаль.

Задача 2.9: Определение разницы в очках между победителем и самым слабым игроком.

Для решения этой задачи нам нужно выполнить следующие шаги:

1. Считать количество очков, набранных каждым из трех шахматистов.
2. Найти максимальное значение (очки победителя).
3. Найти минимальное значение (очки самого слабого игрока).
4. Вычислить разницу между максимальным и минимальным значениями.
5. Вывести результат на экран.

Вот пример программы на Паскале:

program ChessScore;
var
    player1, player2, player3: integer;
    maxScore, minScore, difference: integer;
begin
    writeln('Введите очки первого игрока:');
    readln(player1);
    writeln('Введите очки второго игрока:');
    readln(player2);
    writeln('Введите очки третьего игрока:');
    readln(player3);

    maxScore := player1;
    if player2 > maxScore then
        maxScore := player2;
    if player3 > maxScore then
        maxScore := player3;

    minScore := player1;
    if player2 < minScore then
        minScore := player2;
    if player3 < minScore then
        minScore := player3;

    difference := maxScore - minScore;

    writeln('Разница между победителем и самым слабым игроком составляет: ', difference);
end.

Задача 3.10: Определение количества машин, прибывших с грузом до полного заполнения склада.

Для решения этой задачи нам нужно следовать следующим шагам:

1. Задать переменную для хранения общего веса груза на складе.
2. Создать цикл для ввода веса груза от каждой машины.
3. На каждой итерации добавлять вес груза к общему весу.
4. Проверять, не превышает ли общий вес 1000 тонн.
5. Если общий вес превышает 1000 тонн, завершить цикл и вывести количество машин.

Вот пример программы на Паскале:

program TruckLoad;
var
    totalWeight, truckWeight: integer;
    truckCount: integer;
begin
    totalWeight := 0;
    truckCount := 0;

    repeat
        writeln('Введите вес груза на машине (в тоннах):');
        readln(truckWeight);
        
        if totalWeight + truckWeight <= 1000 then
        begin
            totalWeight := totalWeight + truckWeight;
            truckCount := truckCount + 1;
        end
        else
            writeln('Склад переполнен!');

    until totalWeight >= 1000;

    writeln('Количество машин, прибывших с грузом до полного заполнения склада: ', truckCount);
end.

Надеюсь, эти примеры помогут вам в решении задач. Если у вас есть дополнительные вопросы, не стесняйтесь спрашивать!