Vara:integer;beginwriteln('введите a');readln(a);If (a>0) thena:=a+1;writeln(a);end.Если ты это имел ввиду
Внутренняя для работы компьютера , внешняя для пользователя компьютера
Обычное дело, сначала инициализировал массив.
Вывел его, потом обычным вложенным циклом проверил всё.
Думаю на счёт того как я проверял вопросов не будет.
Объясню, что же означает строка "if (neg&&a) break;"
Это значит, что если мы уже нашли негативное число и число равное А, то наш цикл прекращает работу ибо он уже нам не нужен.
Var
x:integer;
begin
writeln('Введите числo:');
readln(x);
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then
writeln('В чсило входит цифра: ',x mod 10);
x:=x div 10;
if (x=3)or(x=5)or(x=8) then
writeln('В чсило входит цифра: ',x mod 10);
end.