1.Найти сумму цифр числа. через while или repeat. с испоользованием mod и div
2.Отсортировать массив по возрастанию модулей. Заполняется случайными числами на интервале (-56;30).размер массива произвольный
чем помочь? где исходники? что не получается? или может готовая работа нужна?
пишите на почту разберемся
var a,s:integer;
begin
writeln('Vvedute chuslo:');
readln(a);
repeat
S:=S+(a mod 10);
a:=a div 10;
until a=0;
writeln(S);
readln;
end.
Самое просто без никаких подключаемых модулей, без проверок..
⇢