Выделение цифр в записи числа, помогите, плиз!

Страница 1 из 1 1
Модератор форума: Berestovskiy

Дано натуральное число n(n>9) . Найти:
а) число единиц в нем;
б) число десятков в нем.

№1 | Автор: BeaU | 2009-06-03, 17:40 | Репутация: [ + 0 ]

Если я правильно понял это задача на разложение по разрядам??? wink

тогда мой вариант решения:

program chislo;
var s:string;
begin
read (s);
writeln ('KOL EDENIC=',s[ord(s[0])]);
writeln ('KOL DESIATKOV=',s[ord(s[0])-1]);
end.

Удваивается не в четыре, а в три раза!

№2 | Автор: RedWoLF | 2009-06-03, 19:06 | Репутация: [ + 3 ]

Спасибо)))

№3 | Автор: BeaU | 2009-06-04, 12:11 | Репутация: [ + 0 ]

прикладная математика