Объяснение:
Код:
program storinka29zadacha7;
uses crt;
const g=9.80665;
var e,m,v,p,h:real;
begin
writeln('Vvedite m');
readln(m);
writeln('Vvedite v');
readln(v);
writeln('Vvedite h');
readln(h);
e:=m*sqr(v)*8/2;
p:=m*g*h;
writeln('E=',e);
writeln('P=',p);
end.
Схема на картинке
Program enot;
Var a: array [1..6] of integer;
i,p:integer;
begin
for i:= 1 to 6 do
a[i]:= random(13)+5;
for i:= 1 to 6 do
write(a[i]:4);
writeln();
p:=a[5];
a[5]:=a[6];
a[6]:=p;
a[4]:=a[4]*3;
for i:= 1 to 6 do
write(a[i]:4);
<span>end.</span>
№4const nx=30;var i,n,m,max,k,el,Sum,Sumnh:integer;C:Array[1..nx]of integer;Sr:real;BeginRead(n);for i:=1 to n do beginC[i]:= random(200)-100; write(C[i]:4);if C[i]>0 then begin Sum := Sum + C[i];k:= k+1;end;if C[i]< 0 then m:= m+1;end;Sr:= Sum/k;writeln;writeln('среднеарифметическое положительных элементов ',Sr:6:4);write('Количес. отриц. элементов ',m:4);end.№5const nx=30;var i,n,m,max,k,el,Sum,Sumnh:integer;C:Array[1..nx]of integer;Sr:real;BeginRead(n);for i:=1 to n do beginC[i]:= random(125)-75; write(C[i]:4);if C[i]>0 then begin Sum := Sum + C[i];k:= k+1;end;if C[i]< 0 then m:= m+1;end;Sr:= Sum/k;writeln;writeln('среднеарифметическое положительных элементов ',Sr:6:4);write('Количес. отриц. элементов ',m:4);end.
Зависит от того, в какой кодировке написано письмо, сжато или нет, какой байт используется в данной компьютерной системе, в конце концов как измеряется информационный объём сообщения. Однозначного ответа тут быть не может. Можешь написать 672 и 84, положив кодировку однобайтовой, но это не решение.
Program ex16;
var
a,b,x,z,alpha:real;
begin
Write('a,b=');
Read(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
alpha:=a*x*x-cos(b*x)+z/2;
Writeln('x=',x,' z=',z,' alpha=',alpha)
end.
Контрольное решение
Turbo Pascal Version 7.0 Copyright (c) 1983,92 Borland International
a,b=0.58 -2.4
x=-9.1000000000E-01 z= 9.9878048780E-02 alpha= 1.1057274246E+00
