Var i,j,n,m:integer;
a:array[1..100] of integer;
begin
Read(n);
for i:=1 to n do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);
<span>End.</span>
Ответ:
В 1296000 пикселей 1,29 мегапикселей
Объяснение:
<em>VAR</em>
<em> a,b,c,d: LongInt;</em>
<em>BEGIN</em>
<em> Read(a,b,c,d);</em>
<em> </em>
<em> Write(a,'+',b,'+',c,'+',d,'=',a+b+c+d);</em>
<em>END.</em>
Ответ:
в интернете можно поискать хотя я посмотрел там не так много информации можно через блютуз а ещё через USB кабель всё я понял эта папка называется аудио