var
a: byte;
begin
write('введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('в число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дано целое двузначное число. составить программу которая определяет входит ли в него цифра 4
var
a: byte;
begin
write('введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('в число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.