Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.
(Формат файла должен быть *.py но на этом сайте он его не подгружает, по этому формат изменен на *.py.txt просто надо будет убрать '.txt')
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
Таблица истинности на картинке
Жирным отмечен ответ, в последней колонке
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.
1)3
2)3
3)4
4)4
5)3
6)б,с,д,а
7)3270
вторую страницу не осилила)))