Var n,i,s:integer;
begin
read (n);
s:=0;
for i:=1 to n do
begin
s:=s+sqr(i);
end;
writeln (s);
end.
А2=(д1+5)/в1=(3+5)/4=2
В2=
С2=1
Д2=а2*с2=2*1=2
Ответ:3)
3)=4+1=5
2кбайта = 2048 байт => 1символов = 1 байт
1 байт = 8 бит
2 ^ 8 = 256
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>
<em>program qq;
</em>
<em>var x,a,y:real;
</em>
<em>Begin
</em>
<em> writeln('Vvedi a');
</em>
<em> readln(a);
</em>
<em> writeln('Vvedi x');
</em>
<em> readln(x);
</em>
<em> //a:=0.5;
</em>
<em> // x:=4;
</em>
<em> y:=sqr(cos(x+a))/abs(x+a)+sin(x+a)*(x+a);
</em>
<em> writeln(y);
</em>
<em>end.</em>