Вводится возрастающая последовательность целых, не равных нулю чисел. Ноль – признак конца ввода. Определить, сколько в ней различных чисел, кратных пяти. Признак конца ввода не учитывать. При решении задачи допустимо использование массивов. Написать программу на паскале.
p/all gl tyrpion ^type^ all txt.file
g kall %(type) all.txt dipon sre rec^all^
an %~type~ kaunt name tir 1
1. Сначала нам нужно создать массив, где мы будем хранить все введенные числа. В паскале это можно сделать следующим образом:
```pascal
var
numbers: array of Integer;
```
2. Затем мы будем заполнять этот массив числами, пока не встретим ноль (признак конца ввода). Мы можем использовать цикл для этого. В паскале можно использовать цикл "while" или "repeat-until". Давайте рассмотрим пример с циклом "while":
```pascal
var
input: Integer;
while input <> 0 do
begin
// Ввод числа и добавление его в массив
readln(input);
SetLength(numbers, Length(numbers) + 1);
numbers[Length(numbers) - 1] := input;
end;
```
3. Теперь, когда мы имеем все числа в массиве, мы можем перебрать их в цикле и проверить, сколько из них кратны пяти. Мы можем использовать вложенный цикл "for" для этого:
```pascal
var
count: Integer;
i, j: Integer;
count := 0; // Счетчик кратных чисел
for i := 0 to Length(numbers) - 1 do
begin
if numbers[i] mod 5 = 0 then // Если число кратно пяти
begin
// Проверка наличия этого числа в массиве среди предыдущих чисел
for j := 0 to i - 1 do
begin
if numbers[i] = numbers[j] then // Если число уже было ранее
begin
count := count - 1; // Уменьшаем счетчик
Break; // Прерываем внутренний цикл
end;
end;
count := count + 1; // Увеличиваем счетчик
end;
end;
```
4. Наконец, мы можем вывести полученное количество различных чисел, кратных пяти:
```pascal
writeln('Total unique numbers multiples of five: ', count);
```
Вот и все! Теперь у нас есть полная программа на паскале, которая решает данную задачу. Обратите внимание, что в примере не приведена обработка некорректного ввода, так как в условии задачи это не указано. В реальных условиях можно добавить соответствующую проверку и выводить сообщение об ошибке при необходимости.