Program dvch; var n: integer; begin writeln('введите число n'); readln(n); if (n> 9) and (n< 100) then writeln('число ',n: 2,' является двухзначным') else writeln('число ',n: 2,' не является двухзначным'); if n mod 2=0 then writeln('число ',n: 2,' является четным') else writeln('число ',n: 2,' не является четным'); end.

шапан1    2   08.09.2019 16:00    0