Program xxx;
Var a, b, c, p, s : real;
Begin
wtiteln('введите катет а-');
read(a);
wtiteln('введите катет b-');
read(b);
s:=(a*b)/2;
writeln('площадь треугольника =', s);
c:=sqrt(sqr(a)+sqr(b));
p:= a+ b + c;
writeln('периметр треугольника =', p);
end.
Const n=5; //размер массива
var a:array[1..n] of integer; i,xmax:intger;
begin
for i:=1 to n do begin
a[i]:=random(10); //заполняем массив случайными числами от 1 до 10
write(a[i]); // выводим массив
end;
xmax:=a[1];
for i:=1 to n do begin
if a[i]>xmax then xmax:=a[i]
end;
for i:=1 to n do
a[i]:=xmax;
writeln('Конечный массив:');
for i:=1 to n do
write(a[i]);
end.
Ответ:
"6 из 36"
Объяснение:
Результат первой лотереи - 6 чисел в том порядке, в котором они выпадали. Всего возможных результатов лотереи 
: на первом месте может стоять любое из 36 чисел, на втором - из 35 (одно выпасть второй раз уже не может) и т.д.
Аналогично, возможных результатов лотереи "5 из 64" ровно 
Отношение количеств возможных результатов лотереи
Возможных результатов лотереи "6 из 36" примерно в 1,5 раза больше, поэтому информация о результатах этой лотереи несёт больше информации.
открыть,изменит,создать,переименовать,копировать,создать ярлык,закрыть,свернуть,отправить,вырезать,удалить,свойства
