Электронды хатты қалай жіберуге болады. Хат жіберу ретін ата​

Мой мир > почта> төбесінде написать деген жазу бар басасыз>ашылады Кому деген жерге мекен жайды>астына темасын онын астына шыгарманызды жасасыз сосын отправить ті басасыз болды

Допустим на вход программе пришла информация(входная, первичная) о погоде за последние дняПотом через час облака сдвинулись, пришла новая информация (вторичная)Обе эти информации постоянные т.к снятны с датчиковАлгоритм имеет базу знаний и формулу для прогноза погоды что является закрытыми даннымиНо часть своих вычислений программа показывает ее администратору-  открытаяВ ходе вычеслений алгоритм программы производит промежуточные вычисления и выдают результирующую информацию.Дальше можно порассуждать об остальных терминах. избытычная - та тапример которая приходит каждую секунду.понятно что облака двигаясь, за секунду ничего не изменят...

function two(i: integer): boolean;
begin
  two := (i mod 10 mod 2 = 0);
end;

function three(i: integer): boolean;
var
  buf, k: integer;
begin
  buf := i;
  repeat
    k := k + (buf mod 10);
    buf := buf div 10;
  until (buf = 0);
  three := (k mod 3 = 0);
end;

function four(i: integer): boolean;
begin
  four := (i mod 100 mod 4 = 0);
end;

function six(i: integer): boolean;
begin
  six := (two(i) and (three(i)));
end;

function BooleanToString(i: boolean): string;
begin
  if (i) then
    BooleanToString := 'Да'
  else
    BooleanToString := 'Нет';
end;

var
  i: integer;
begin
  readln(i);
  writeln('2: ', BooleanToString(two(i)));
  writeln('3: ', BooleanToString(three(i)));
  writeln('4: ', BooleanToString(four(i)));
  writeln('6: ', BooleanToString(six(i)));
end.