Ввести целое число и найти сумму его цифр .проверить , если сумма цифр делится на 9 , сделать вывод число кратно 9 . в pascal . составьте полную программу со всеми обозначениями .

Var  n, s: integer begin write  ('vvedite n');   readln (n); s  : =  0; while  n  >   0  do begin         n : = n  mod  10;         s  : =  s  +  1; end writeln (s); if s  mod  9  =  0  then writeln  (n, 'kratno 9')  else  writeln (n, 'ne  kratno 9');   end.

Мультиме́діа (лат. Multum + Medium) — комбінування різних форм представлення інформації на одному носієві, наприклад текстової, звукової і графічної, або, останнім часом все частіше — анімації і відео. Характерна особливість мультимедійних об'єктів та продуктів — наявність гіперпосилання. Поняття, що означає сполучення звукових, відео, графічних, текстових і цифрових сигналів, а також нерухомих і рухомих образів і конструкцій. Так, мультимедійна база даних буде вміщувати текстову і образну інформацію, відеокліпи і таблиці, і все це має однаково легкий доступ. Мультимедійна послуга дозволяє користувачеві посилати, одержувати і використовувати будь-яку форму інформації, взаємозамінну і взаємодоповнюючі за бажанням.

Pascalabc.netvar   x,y,z: integer;   m: single; begin   write('введите x,y,z: '); read(x,y,z);   m: =(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));   writeln(m) end. тестовое решение: введите x,y,z: 3 6 -2 -0.3 borland pascal 7.01 uses crt; function max(m,n: integer): integer; begin if m> n then max: =m else max: =n end; function min(m,n: integer): integer; begin if m< n then min: =m else min: =n end; var   x,y,z: integer;   m: real; begin   clrscr;   write('введите x,y,z: '); read(x,y,z);   m: =(max(max(3*x,y*z-x),z+x)+6*z)/(-5*min(x,z));   writeln(m);   readkey end. тестовое решение: введите x,y,z: 3 6 -2 -3.0000000000e-01