Наименьшее такое число равно 105 = 7·15, наибольшее — 994 = 7·142.
Получаем арифметическую прогрессию 105, 112, 119, …, 994. Разность прогрессии равна 7, а количество членов
(994−105):7 + 1 = 142−15+1 = 128.
<span>ОТВЕТ: 128.</span>
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:3,' ')
end;
writeln;
write('x = ');
readln (x);
for i:=1 to n do if a[i]=x then writeln('A[',i,'] = ',a[i])
end.
Таблица - в прилагаемом файле.
Ввод(ЧИСЛО)
Цикл пока ЧИСЛО>0
Вывод(ОстатокОтДеления(ЧИСЛО / 10))
Число = Число / 10
КонецЦикла
Если нет стандарной операции остаток от деления можно посчитать как
ЧИСЛО - ((ЧИСЛО / 10)*10)