1. Напишите программу на языке Паскаль, которая будет находить сумму трехзначных чисел, кратных 4, в последовательности

Программа на языке Паскаль для нахождения суммы трехзначных чисел, кратных 4, в последовательности натуральных чисел:

pascal

program SumOfMultiples;

var

  number, sum: integer;

begin

  sum := 0;

  repeat

    readln(number);

    if (number >= 100) and (number <= 999) and (number mod 4 = 0) then

      sum := sum + number;

  until number = 0;

  writeln("Сумма трехзначных чисел, кратных 4: ", sum);

end.

Разъяснение:
Данная программа считывает последовательность натуральных чисел, прекращая этот процесс, когда число 0 будет введено. В каждой итерации программы, она проверяет, является ли число трехзначным и кратным 4. Если это так, то число добавляется к переменной sum. В конце программы, значение sum выводится на экран как результат - это будет сумма трехзначных чисел, кратных 4.

Доп. материал:
Входные данные:
174
238
1000
476
542
0

Вывод программы:
Сумма трехзначных чисел, кратных 4: 1196

Советы:
- Убедитесь, что вы понимаете, как работает оператор деления с остатком (mod) в Pascal.
- Во время написания программы, убедитесь, что вы аккуратно проверяете условие, чтобы число было трехзначным и кратным 4.
- Используйте цикл repeat-until для считывания последовательности чисел от пользователя и проверки условия в каждой итерации.

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