Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6)123 div 10 7)1 div 2 8) 123 mod
Определить значение выражения: 1) 10 div 15 2) 10 div 2 3) 10 mod 2 4) 10 mod 17 5) 123 mod 10 6)123 div 10 7)1 div 2 8) 123 mod 1000 9) 100 mod 27 div 3 10) 100 div 5 mod 3 11)98725 div 1000 mod 10 12)100 mod 5 div 3
1) 10 div 15 = 0 2) 10 div 2 = 5 3) 10 mod 2 = 0 4) 10 mod 17 = 10 5) 123 mod 10 = 3 6)123 div 10 = 12 7)1 div 2 = 0 8) 123 mod 1000 = 123 9) 100 mod 27 div 3 = 6 10) 100 div 5 mod 3 = 2 11)98725 div 1000 mod 10 = 8 <span>12)100 mod 5 div 3 = 0</span>
Var n: integer; function oct(x: integer): string; var s: string; begin while x > 0 do begin s := IntToStr(x mod 8) + s; x := x div 8; end; Result := s; end;
begin write('Введите число: '); readln(n); writeln('Восьмиричная форма: ', oct(n)) <span>end.</span>