Пусть дана матрица А(nxn). Упорядочьте строки по неубыванию сумм цифр элементов этой строки. Воспользуйтесь функцией, определяющей для каждого числа сумму его цифр.
sLip
|
|
|
|
var
a,s:integer;
begin
s:=0;
read(a);
while a>10 do begin
s:=s+a mod 10;
a:=a div 10;
end;
s:=s+a;
writeln(s);
end.
Вот программа подсчитывающая сумму цифр числа А; тебе хватит этого или писать весь код?)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
если можешь лучше полностью напиши....
sLip
|
|
|
|
