дано целое k от 1 до 180 определить какое цифранаходиться в к-й позиции последовательности 10111213....9899 в которой выписанны подряд все днузначные цифры. Code: 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.
Открой любой справочник по си и переведи,в чем проблема?Div В си это /,Mod-%.And-&.Прежде чем сюда писать книжку попробуй открыть.