Program n1;
var a,b,c,s,k,y: real;
begin
readln(a,b,c);
s:=sqrt(a+sqr(b)*b)/sqrt(c);
k:=sqrt(abs(a*b-sqr(c)*c))+s/(2*a);
y:=3*s*k-s/(b+a);
write(y);
end.
Program h;
var i:integer;
s:real;
begin
i:=0;
while i<=20 do
begin
i:=i+2;
s:=s+1/i;
end;
writeln(s);
end.
Program h2;
var i:integer;
s:real;
begin
for i:=2 to 20 do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
3)program chik;
var a,n,p,i:integer;
begin
read(a,n);
i:=2;p:=a;
whiel i<=n do
begin
i:=i+1;
p:=p*a;
end;
writeln(p);
end.
если непонятно пиши что непонятно(надеюсь поймеш) и я отвечу на вопросы
//PascalABC.Net 3.2.0.1467
begin
var h := ReadlnReal('Высота =');
var w := ReadlnReal('Ширина =');
var l := ReadlnReal('Длина =');
Println('Площадь поверхности = ', 2 * (w * h + w * l + h * l));
end.
сама программа здесь
просто поменяй расширение
Var
a: array [1..10] of integer;
i, s: integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
writeln('a[', i, '] = ', a[i]);
if a[i]<0 then s:=s+a[i];
end;
writeln('Сумма всех отрицательных элементов:', s);
<span>end.</span>