22.02.2010, 21:11
|
|
Новичок
Регистрация: 22.02.2010
Сообщений: 1
Провел на форуме:
8538
Репутация:
0
|
|
перевести с паскаля на C++ Builder
дано целое k от 1 до 180 определить какое цифранаходиться в к-й позиции последовательности
10111213....9899 в которой выписанны подряд все днузначные цифры.
Код:
uses crt; var k,c:byte; begin clrscr; repeat {вводим число к с проверкой правильности ввода} write('Vvedite k=[1,180] k='); readln(k); until (k>=1)and(k<=180); if odd(k) then c:=k div 20+1 {если к-нечетное} else if k mod 20=0 then c:=9 else{если четное и кратно 20} c:=k mod 20 div 2 -1; {четное и не кратно 20} write('Cifra #',k,'=',c); readln end.
|
|
|