Помагите решить задачу по информатике Дана последовательность целых чисел оканчивающееся нулём. Составьте программу которая определяет если в последовательности хотя бы одно число оканчивающееся на 8. Программа в паскале

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal, которая определяет, есть ли хотя бы одно число в последовательности, оканчивающееся на 8:

program CheckNumber;
var
num: integer;
begin
repeat
write('Введите число: ');
readln(num);
if num mod 10 = 8 then
begin
writeln('Число ', num, ' оканчивается на 8');
halt;
end;
until num = 0;
writeln('В последовательности нет чисел, оканчивающихся на 8');
end.

Эта программа считывает числа до тех пор, пока не введен 0, и проверяет каждое число на то, оканчивается ли оно на 8. Если такое число найдено, программа выводит сообщение о том, что число оканчивается на 8 и завершает выполнение. Если в последовательности не было найдено чисел, оканчивающихся на 8, программа выводит соответствующее сообщение.