какой язык то???? на тебе паскаль...
var
in,out: text;
i.j: integer;
mas:array [0..4,1..6] of integer;
begin
assign(in1,'in.txt');
reset(in1);
assign(out1,'out.txt');
rewrite(out1);
for i:=1 to 4 do
begin
for j:=1 to 6 do
read(mas[i,j]);
readln;
end;
close(in);
close(out);
end.
капец здесь отступы нельзя делать... фиг поймешь...
Названия взяты из Paint Windows XP
Переделал ваш код с паскаля
#include <iostream>
using namespace std;
int main()
{
long int f[100];
long int k, i, s;
cin>>(k);
f[1] = 1;
f[2] = 3;
if (k > 0) s = 1;
if (k > 1) s = 4;
for (int i = 3;i<=k;i++)
{
f[i] = f[i - 1] + f[i - 2];
s = f[i] + s;
}
cout<<s;
return 0;
Количество билетов = 2^2 = 4
Используем формулу Хартли:
N = 2^i или i = log₂N
здесь N - количество возможных событий;
i - количество информации
Пишу на QBasic
INPUT N
X=0
DIM A(N)
(массив заполните либо вручную, либо рандомайзер впишите)
C=N\2
FOR I = C TO N
IF A(I)>K THEN
X=X+1
END IF
NEXT I
PRINT X