Код и результат выполнения на скриншотах.
Program prog;
Uses crt;
var n,s: integer;
begin
clrscr;
write('n = ');
readln(n);
repeat
s:=(n mod 10)+s;
n:=n div 10;
until
n=0;
writeln;
writeln('S = ', abs(s));
readln;
end.
Табличные и графы, они делятся еще на несколько, табличные : типа "объект-свойство", типа "объект-объект", <span>типа "двойная матрица", а графы на иерархические, сетевые и семантические модели</span>
Ввод текста
редактирование
форматирование
печать
Ёёё в инете есть это же я видела