Var a:array[1..10] of real; i:integer;
begin
for i:=1 to 10 do
a[i]:=(2*i-1)/cos(i);
for i:=1 to 10 do
writeln(i,'->',a[i]);
readln;
end.<span>
</span>
1.
integer: b, d;
real : e,h;
bool: c,j;
char: A, f, j , i;
2.
256
3.
a = 32
4.
a = 40
5.
b = 48
Ответ:100101001
Объяснение:Черный квадратик - 1, белый - 0