Тема: pascal, цикл з передумовою; задано ціле число. знайти суму цифр у записі числа.

//pascal abc.net v3.1 сборка 1172 var   n,c,s: integer; begin   read(n);   while n< > 0 do   begin     c: =n mod 10;     s: =s+c;     n: =n div 10;   end;   writeln(s); end. пример ввода: 123 пример вывода: 6

Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) )