Новые сообщения · Правила  
  • Страница 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 ]
  • Страница 1 из 1
  • 1
Поиск: