Const
n=10;
var
i,j,m,x:integer;
s,p:real;
begin
readln(x);
readln(m);
p:=1;
for j:=1 to m do
begin
for i:=1 to n do
s:=s+cos(x)/sin(x);
p:=p*s;
end;
writeln(p:4:2);
end.
Ответ 2
<span>последовательности расположения цвета каждого пикселя </span>
1.1
2.4
3.2
4.4
5.3
6.2
7.1
8.1
9.3
Воть копируй, файл
Мне нужно 20 символов, это для того, чтобы они были
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>