Procedure swap(var a, b: real); var t: real; begin t := a; a := b; b := t; end;
var a, b, c: real; begin readln(a, b, c); if (a > b) then swap(a, b); if (b > c) then swap(b, c); if (a > b) then swap(a, b); writeln(a, ' ', b, ' ', c); end.
Без процедур:
var a, b, c, t: integer; begin readln(a, b, c); if (a > b) then begin t := a; a := b; b := t; end; if (b > c) then begin t := b; b := c; c := t; end; if (a > b) then begin t := a; a := b; b := t; end; writeln(a, ' ', b, ' ', c); end.
Искренне надеюсь, что Вы сможете перевести этот код к нужному виду..:) В принципе, расхождения должны быть только в вводе/выводе (где Console.Бла-бла-бла) и генерации случайных чисел)
Sub Main() Dim a(29), Sum, Col As Integer Dim Rnd = New Random() For i As Integer = 0 To 29 a(i) = Rnd.Next(-100, 100) Console.Write("{0} => {1}" + Environment.NewLine, i, a(i)) If (i > 0) Then If (a(i) Mod a(0)) Then Sum = Sum + a(i) Col = Col + 1 End If End If Next Console.WriteLine(Math.Round(Sum / Col, 2)) Console.ReadKey() End Sub
Число 1 в десятичной системе
110012 = 2510
Число 2 в десятичной системе
110012 = 2510
Их сумма
25 + 25 = 50
Результат в двоичной форме
5010 = 1100102
Объяснение: