Для какого числа x истинно высказывание (x<3) и ((x<2) или (x>2)) и (x>0)

Объяснение:

Если число целое, то для 1, если нет, то для чисел диапазона (0;2)U(2;3)

Program n1;
var
st: string;
i,c: longint;
b: boolean;
procedure numdig(st: string; x: char);
var i,k: longint;
t: string;
begin
t:='';
k := 0;
for i := 1 to length(st) do
begin
if st[i] = x then k := k + 1;
end;
if(k<>0) and (k<>1) then
begin
if(k=2) or (k=3) or (k=4) then t:='а';
writeln('цифра ',x,' повторяется ',k,' раз',t);
c:=c+1;
end
end;
begin
c:=0;
write('введите число: ');
read(i);
str(i, st);
numdig(st,'0');
numdig(st,'1');
numdig(st,'2');
numdig(st,'3');
numdig(st,'4');
numdig(st,'5');
numdig(st,'6');
numdig(st,'7');
numdig(st,'8');
numdig(st,'9');
if c=0 then writeln('цифры не повторяются');
end.

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln(s.Inverse)
end.

Пример
Я пишу программу на языке Паскаль
ьлаксаП екызя ан уммаргорп ушип Я

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Введите строку:');
  Write('Введите два символа СЛИТНО для сравнения их частоты: ');
  var ab:string;
  Readln(ab);
  var a:=ab[1];
  var b:=ab[2];
  var ka:=0;
  var kb:=0;
  for var i:=1 to s.Length do
    if s[i]=a then ka+=1
    else if s[i]=b then kb+=1;
  if ka>kb then Writeln('Символ ',a,' встречается чаще, чем ',b)
  else
    if ka<kb then Writeln('Символ ',a,' встречается реже, чем ',b)
    else
      if ka<>0 then Writeln('Символы ',a,' и ',b,' встречается одинаково')
      else Writeln('Символы ',a,' и ',b,' отсутствуют')
end.

Пример
Введите строку: а роза упала на лапу азора
Введите два символа СЛИТНО для сравнения их частоты: ао
Символ а встречается чаще, чем о