Объяснение:
Код:
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.
Схема на картинке
Ответ: "о"
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
S : String;
Begin
S:='программирование';
While Length(S)>1 do S:=StRevers(Del2(S));
Writeln(S);
end.
1. Дано:
i=8 бит
K=60*512
I=?
Решение:
I=K*i, переведем в Кбайты -> I=K*i/8/1024 => I= 8*60*512/8/1024=30 Кбайт
2. Дано:
i1=8 бит
i2=16 бит
I2-I1=400 бит
Решение:
I1=K*8
I2=K*16
16K-8K=400
8K=400
K=50 символов
3) Дано:
K=1024*768
N=4294967296
I=?
Решение:
I=K*i
N=2^i => N=4294967296=2^32 => i=32 бита
I=1024*768*32/8/1024/1024=3 Мб
4) Дано:
K=1240*480
i=16 бит
I=?
Решение:
I=1240*768*16/8/1024=1860 Кб
<span> Блок-схема суммы положительных и произведение четных членов данного массива</span>