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

Задача 1. Чтобы написать программу на языке Паскаль для определения суммы трехзначных чисел, кратных 4, в заданной последовательности натуральных чисел, вам потребуется использовать цикл для считывания чисел до тех пор, пока не будет введено число 0. Вам также понадобится переменная для хранения суммы трехзначных чисел, которую мы будем увеличивать при каждом вводе трехзначного числа, кратного 4.

Ниже приведен пример решения этой задачи на языке Паскаль:

\[
\begin{{verbatim}}
program SumOfMultiples;
var
number, sum: integer;
begin
sum := 0;

repeat
write("Введите число: ");
readln(number);

if (number >= 100) and (number < 1000) and (number mod 4 = 0) then
sum := sum + number;
until number = 0;

writeln("Сумма трехзначных чисел, кратных 4: ", sum);
end.
\end{{verbatim}}
\]

В этой программе мы начинаем с инициализации переменной \texttt{sum} в значение 0. Затем мы считываем числа в цикле \texttt{repeat} до тех пор, пока не будет введено число 0. В каждой итерации мы проверяем, является ли введенное число трехзначным и кратным 4. Если условие выполняется, мы увеличиваем сумму на введенное число. После завершения цикла мы выводим итоговую сумму трехзначных чисел, кратных 4.

Задача 2. Чтобы написать программу на языке Паскаль для определения количества чисел в заданной последовательности натуральных чисел, вам потребуется использовать цикл для считывания чисел до тех пор, пока не будет введено число 0. Вам также потребуется переменная, которую мы будем увеличивать на 1 при каждом вводе числа, отличного от 0.

Ниже приведен пример решения этой задачи на языке Паскаль:

\[
\begin{{verbatim}}
program CountNumbers;
var
number, count: integer;
begin
count := 0;

repeat
write("Введите число: ");
readln(number);

if number <> 0 then
count := count + 1;
until number = 0;

writeln("Количество чисел в последовательности: ", count);
end.
\end{{verbatim}}
\]

В этой программе мы начинаем с инициализации переменной \texttt{count} в значение 0. Затем мы считываем числа в цикле \texttt{repeat} до тех пор, пока не будет введено число 0. В каждой итерации мы проверяем, отлично ли введенное число от 0. Если условие выполняется, мы увеличиваем счетчик на 1. После завершения цикла мы выводим итоговое количество чисел в последовательности.