Составить программу, печатающую значение true, если указанное высказывание истинно, и false, в противномслучае: 1. Хотя бы одна цифра данного трехзначного числа N равна S. 2. Числа N и R являются нечетными.
Program akifieva70; var n,s,r:integer; begin write('n=');read(n); write('s=');read(s); if (n div 100 = s) or (n mod 10 = s) or (n div 10 mod 10 = s) then write('TRUE')else write('FALSE'); writeln; write('n=');read(n); write('r=');read(r); if (r mod 2 <>0) and (n mod 2<>0) then write('TRUE')else write('FALSE'); end.