Question

ПОМОГИТЕ ПОЖАЛУЙСТА ПАСКАЛЬ
Составить программу, печатающую значение true, если указанное значение является истинным, и false в противном случае: цифра 4 не входит в запись целого двухзначного числа N.

Answer 1

var N:integer;

begin

readln(N);

if (N mod 10 = 4) or (N div 10 = 4) then

 writeln(false) else  

 writeln(true);

end.

Объяснение: