Написать подрограмму для логического оператора AND, без использования логических операторов - Turbo Pascal

Формулировка задачи:

Помогите решить интересную задачу, в нете искал и не смог найти нормального ответа. ЗАранее Спасибо! Написать подрограмму для логического оператора AND, без использования логических операторов . Напривер a and b .

Код к задаче: «Написать подрограмму для логического оператора AND, без использования логических операторов - Turbo Pascal»

textual
var a, b: Boolean; t: Integer;
begin
  Write('a b [0..1]: '); 
  Read(t); a:=t<>0;
  Read(t); b:=t<>0;
  WriteLn(a,' AND ',b,' = ',Ord(a)+Ord(b)=2);
end.

6   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы