Где применяются информационные системы?

имитационные модели оперируют разыгрыванием случайной величины!   если детерминированная модель слишком сложна или вообще не возможна, то на приходит имитационная модель!

(если сумма цифр числа делится на 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.