как на пелесе она будет

[Lidia123]

Дано целое число. Определить: является ли данное число двухзначным положительным, содержащим только одну цифру 3.

[Лубышев]

//если на Delphi, то так

function myfunction(a:integer):boolean;
begin
result:=false;
 if (a>9) and (a<100) and (a<>33) then result:=true;
end;

{если на Паскале то так}

function myfunction(a:integer):boolean;
begin
 if (a>9) and (a<100) and (a<>33) then myfunction:=true else
myfunction:=false;
end;

[whatever]

Лубышев, неа:

function myfunction(a:integer):boolean;
begin
result:=false;
 if (a>9) and (a<100) and (a<>33) then result:=true;
end;

begin
  writeln(myfunction(11));  //возвращает true
  readln
end.

Предлагаю такой вариант:

//дэлфи
function myfunction(a:integer):boolean;
begin
  result:=false;
  if (a>9) and (a<100) and (((a mod 10)=3) xor ((a div 10)=3)) then
    result:=true;
end;

//Pascal (по крайней мере Free Pascal откомпелировал и запустил, за турбо не ручаюсь)
function MF(a:integer):boolean;
begin
  if (a>9) and (a<100) and(((a mod 10)=3)xor((a div 10)=3)) then
    MF:=true
  else
    MF:=false;
end;

P.S. ТС, что значит "как на пелесе она будет"? Кто "она", и что за "пелес"?

[Лубышев]

а в чем разница? если проще было так как я показал?) или в промежутке 0..100 есть другие целые числа содержащие две тройки?)

[whatever]

Сообщение от Лубышев

а в чем разница? если проще было так как я показал?) или в промежутке 0..100 есть другие целые числа содержащие две тройки?)

Сообщение от Lidia123

Дано целое число. Определить: является ли данное число двухзначным положительным, содержащим только одну цифру 3.

: \

[Лубышев]

ну и? на промежутке от 10 до 99 не подходит только 33 а все остальные подходят. в чем проблема то?)

[whatever]

Сообщение от Лубышев

ну и? на промежутке от 10 до 99 не подходит только 33 а все остальные подходят. в чем проблема то?)

Ткните мне, пожалуйста, пальцем, где в числе 11 есть цифра 3?

В задании написано "содержащим только одну". Содержащим, О'кей?