===== PascalABC.NET =====
begin
var n := ReadInteger;
var L := ReadSeqInteger(n).Distinct.ToList;
L.AsEnumerable.Reverse.Print
end.
Выбор одного ученика из 64 = 2⁶ учеников несет в себе 6 бит информации.
Информация объемом 72 бита означает, что были выбраны 72 / 6 = 12 учеников.
1234567891011121314151617181920
Var m : array[1..50] of Integer;
i,max : Integer;
Begin
max:=0;
For i:=1 to 50 do
Begin
m[i]:=Random(100);
if m[i]>max then max:=m[i];
end;
Writeln(max);
end.
1) (2+sqrt(abs(A-B)))/(B*C+A)
2) a=20; b=5; x=140; x=14;
ответ: х=14
3)
var
A, H, S: real;
begin
Write('Введите А и Н: ');
Readln(A, H);
S := A * H / 2;
Writeln('S=', s:0:4)
end.
Тестовое решение:
Введите А и Н: 5.4 2.75
S=7.4250