Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Нужна помощ... (Функции)
Нужна помощ...
Пусть дана матрица А(nxn). Упорядочьте строки по неубыванию сумм цифр элементов этой строки. Воспользуйтесь функцией, определяющей для каждого числа сумму его цифр.

sLip
1 | Автор: AvoqzT | 2012-04-10, 19:30   |  Репутация: [ + 0 ]


sLip
1 | Автор: AvoqzT | 2012-04-10, 19:30   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-04-10, 19:40   |  Репутация: [ + 211 ]
если можешь лучше полностью напиши....

sLip
3 | Автор: AvoqzT | 2012-04-10, 19:59   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Нужна помощ... (Функции)
Страница 1 из 11
Поиск: