24.09.2008, 08:19
общий
это ответ
Здравствуйте, Даниил Цветков!
Я так понял, что условие если a делится нацело на b или наоборот, то истина, иначе ложь. Здесь не надо никаких операторов, поскольку есть логический тип boolean, с помощью которого можно определить истинно выражение (true) или ложно(false). Порядковый номер true = 1, false =0. Порядковый номер возвращается функцией Ord. Код в приложении.
Приложение:
uses crt;
var a,b:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write(ord((a mod b=0)or(b mod a=0)));
readln
end.