Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: 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 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Выделение цифр в записи числа, помогите, плиз!
Страница 1 из 11
Поиск: