Module Module1 Sub Main() Dim Rnd As Random = New Random() Dim A(30) As Integer Dim k As Integer Dim i As Byte For i = 0 To A.Length - 1 A(i) = i 'Rnd.Next(255) WriteLine("A({0}) => {1}", i, A(i)) Next WriteLine() i = 0 For i = 0 To Math.Truncate(A.Length / 2) k = A(i) A(i) = A(A.Length - i - 1) A(A.Length - i - 1) = k Next For k = 0 To A.Length - 1 WriteLine("A({0}) => {1}", k, A(k)) Next ReadKey(False) End Sub End Module
Первая прога: program pr1; uses crt var m,n:real; begin clrscr; writeln('insert the numbers'); readln(m, n); if m <> n then begin if m > n then begin n:=m; end else begin m:=n; writeln(m,n); end; end else begin m:=0; n:=0; writeln(m,n); end; end.
Вторая прога: program pr2; ues crt var y,m,d,k: integer; begin clrscr; writeln('insert the year); readln(y); writeln('insert the month'); readln(m); if m > 12 then begin writeln('error'); end; if m mod 2 <> 0 then begin d:= 31; end; if m=2 then begin d:= 28; end; if m mod 2 = 0 then begin d:=30; end; writeln('the number of the days in your month:'); writeln(d); end.
2/х + 2 + 1/х = 1
3/х + 2 = 1
3/х = -2
3 = -2х
-х = 1,5
х = -1,5