умножьте числа в восьмеричной системе счисления в столбик и разборчиво 453 и 521

235

254

Посмотреть ответы 1

Ответы на вопрос:

T0nystark

Информатика

4,6(37 оценок)

Program gt; label 1; var n,i,s: integer; begin readln(n); s: =0; for i: =1 to 12 do begin if(i=1)or(i=3)or(i=5)or(i=7)or(i=8)or(i=10)or(i=12)then begin s: =s+31; if(n< =s)then begin writeln(n-s+31,' ',i); goto 1; end; end; if(i=2)then begin s: =s+28; if(n< =s)then begin writeln(n-s+28,' ',i); goto 1; end; end; if(i=4)or(i=6)or(i=9)or(i=11)then begin s: =s+30; if(n< =s)then begin writeln(n-s+31,' ',i); goto 1; end; end; end; 1: end.