Помогите!!!!! Очень срочно

Задачи необходимо написать на языке Паскаль….

1. Задача 2.9: Три шахматиста играют в шахматы. Как составить программу, которая определит, на сколько очков победитель оторвался от самого слабого игрока, если известно количество очков, набранных каждым из них?
2. Задача 3.10: На склад поступают груза на машинах различной грузоподъемности. Как составить программу, определяющую количество машин, прибывших с грузом до полного заполнения склада, если известно, что склад вмещает 1000 тонн груза и одновременно поступает информация о весе груза на каждой машине?

Информатика 9 класс Программирование на языке Паскаль информатика 9 класс задачи на языке Паскаль программа для шахматистов программа для определения грузовиков алгоритмы на Паскале программирование для школьников задачи по информатике шахматная программа Паскаль грузоподъемность машин складская логистика программирование Новый

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

Задача 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.

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