<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var a:=ArrRandom(5,0,60); a.Println;
Swap(a[0],a[4]); a.Println
end.
Пример
52 35 23 8 9
9 35 23 8 52
В промежутке от 1 до 30 находится 10 чисел кратных 3, всего чисел 30.
Вероятность будет равна p= 10/30 = 1/3≈0.333
Program maximum;
Var a, max, k, i: integer;
Begin
max:=0;
k:=0;
For i:=1 to 4 do
begin
Readln(a);
if (a > max) then
Begin
max:=a;
k:=1;
end else begin
If (a = max) then
k:=k+1;
end;
end;
end;
Writeln(max,k);
end.
Ответ:
0
Объяснение:
(A∨N) & ¬(A∨N) = 0
Обозначив (A∨N) через B, можно написать B & ¬B, а это тождественно 0.
40 * 60 * 32 / 8 = 9600
Ответ: <span>г) 9600 байтов</span>