Sub maxZn()'заполнение массива Dim mas(20) S = "" Randomize For i = 1 To 20 mas(i) = Round(Rnd(100) * 100) S = S + Str(mas(i)) + "," Next i'поиск максимального числа и количества его повторений qty = 1 max = mas(1) 'предполагаем, что максимальное число в первом элементе массива For i = 2 To 20 If mas(i) = max Then qty = qty + 1 End If If mas(i) > max Then max = mas(i) qty = 1 End If Next i MsgBox "последовательность чисел " + S MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty) End Sub Sub test() Call maxZnEnd Sub
Function IsPrime(n: Longint): Boolean; var i, sqrtn, delta: Word; begin if (n >= 5) and ((n - 1) mod 6 = 0) or ((n + 1) mod 6 = 0) then begin i := 5; delta := 2; sqrtn := Trunc(sqrt(n)); IsPrime := False; while i <= sqrtn do begin if n mod i = 0 then Exit; Inc(i, delta); delta := delta xor 6; {смена шага, то 2, то 4} end; IsPrime := True; end else IsPrime := (n = 2) or (n = 3); end; Var A,B,i : Integer; Begin Readln(A,B); For i:=A to B do If IsPrime(i) then Writeln(i); end.
