Программа на pascal

[xRJ10]

Задача: Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Оператор IF не использовать).

Условие: введенные символы C1, C2образуют число кратное 3, но не кратное 9.

[Serge_Bliznykov]

(((С1*10+С2) mod 3) = 0) and (((С1*10+С2) mod 9) <> 0)

p.s. если C1 и С2 реально СИМВОЛЫ (то бишь типа CHAR), тогда вместо
С1*10+С2 следует использовать выражение для перевода символов в цифры:

(ord(С1)-ord('0'))*10+ord(С2)-ord('0')

[xRJ10]

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

(((С1*10+С2) mod 3) = 0) and (((С1*10+С2) mod 9) <> 0)

p.s. если C1 и С2 реально СИМВОЛЫ (то бишь типа CHAR), тогда вместо
С1*10+С2 следует использовать выражение для перевода символов в цифры:

(ord(С1)-ord('0'))*10+ord(С2)-ord('0')

Не могли бы вы помочь с готовым кодом, я не понимаю((

[Serge_Bliznykov]

так это и есть ГОТОВЫЙ код..
допишите ввод c1,c2 (возможно вывод значения переменной t)

var t: boolean;
  var c1,c2 : char;
begin
  ... ввод C1, C2
  t := (((ord(C1)-ord('0'))*10+ord(C2)-ord('0') mod 3) = 0) 
   and (((ord(C1)-ord('0'))*10+ord(C2)-ord('0') mod 9) <> 0);
end.