Function Dec2Oct(n: integer): string; var c, s: string; iquo, irem: integer; begin s := ''; iquo := n; while iquo <> 0 do begin irem := iquo mod 8; iquo := iquo div 8; Str(irem, c); s := c + s end; if Length(s) = 0 then Result := '0' else Result := s end;
var m: array[1..8] of integer; i: integer;
begin Randomize; for i := 1 to 8 do begin m[i] := Random(10000); writeln(m[i]:5, '(10)=', Dec2Oct(m[i]), '(8)') end end.
Если вместо функции нужна процедура, достаточно заменить несколько строчек.
procedure Dec2Oct(n: integer; s: string); var c: string; iquo, irem: integer; begin s := ''; iquo := n; while iquo <> 0 do begin irem := iquo mod 8; iquo := iquo div 8; Str(irem, c); s := c + s end; if Length(s) = 0 then s := '0' end;
static void Main() { double a = float.Parse(Console.ReadLine()), b = float.Parse(Console.ReadLine()), c = float.Parse(Console.ReadLine()), d; if (a > b) swap(ref a, ref b); if (b > c) swap(ref c, ref b); if (a > b) swap(ref a, ref b); if (b > c) swap(ref c, ref b); d = Math.Sqrt(Math.Pow(a, 2) + Math.Pow(b, 2)); if (a + b <= c) { Console.WriteLine("Нет ▲"); } else { if (d == c) Console.WriteLine("Прямоугольный"); else if (d < c) Console.WriteLine("Тупоугольный"); else Console.WriteLine("Остроугольный"); } Console.ReadKey(false); } private static void swap(ref double a, ref double b) { double c = a; a = b; b = c; }
Как ходить и как походил первый игрок