Даны значения целочисленных переменных : a=10 b=20. чему будет равно значение логической переменной rez после выполнения операции присваивания? a) rez: =(a=10) or (b> 10)б) rez: =(a> 5) and (b> 5) and (a< 20) and (b> 30)в) rez: =(not (a< 15)) or (b> 20)

A)rez  =  (a=10) or (b> 10) = (10=10) or (20> 10) = true or true = trueб) rez  =  (a> 5) and (b> 5) and (a< 20) and (b> 30) =  (10> 5)and(20> 5)and(10< 20)and(20> 30) = true and true and true and false = falseв) rez  =  (not (a< 15)) or (b> 20) = (not(10< 15)) or (20> 20) = not true or false = false or false = false

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.