Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб
(около кола _колокола и на колах _колокола)
а)
var
p,d,h: real;
begin
readln(h);
p: =1200*9.8*h;
writeln(p);
end.
б)
m,h,r: real;
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
i,k: integer;
m,h,r,s: real;
readln(k);
s: =0;
for i: =1 to k do
s: =s+m;
writeln(s);
1. нужно найти сколько бит весит обна буква.
64 это 6 бит информации.
2. i=6*20= 120 бит
мы умножыли биты на количество используемых букв.
вот и
1)
a: array [1..14] of integer;
k: =0;
for i: =1 to 14 do
a[i]: =random(46)-15;
write(a[i]: 3);
if a[i] mod 2=0 then k: =i;
if k> 0 then
for i: =k to 13 do a[i]: =a[i]+1;
a[14]: =0;
writeln;
for i: =1 to 14 do write(a[i]: 3);
2)
for i: =1 to 7 do
k: =a[i];
a[i]: =a[i+7];
a[i+7]: =k;
Популярные вопросы