дано целое двузначное число. Составить программу которая определяет входит ли в него цифра 4
На псевдокоде Алг(a,b,fl) Арг a,b Рез fl ввод(a;b) {где а-это десятки,b-еденицы} fl:=true Если (a=4)или(b=4) то fl:=true все Если fl=true то вывод('есть') иначе вывод('нету') конец
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.