1)твердь мыслеттэ добрэ
2)и земля
3) тысяча цы покой
4) тысяча тысяча ук наш зело
Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
x.Println; var a:=x.Where(p->p>0).Sum;
var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
y.Println; var b:=y.Where(p->p>0).Sum;
var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
t.Println; var c:=t.Where(p->p>0).Sum;
Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.
<u>Пример</u>
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524
1.Появление первых лазерных дисков 15 декабря 1978
2. Первые следы иероглифического письма в Древнем Египте<span> к началу I династии, то есть примерно в 4 тысячелетии до н. э.
</span>3. <span>Середина XVI в.
4. </span><span>21 ноября 1877
5. </span><span>Демонстрация первого кинофильма. 1895 г.</span>
524288 бит=512 килобайт, наверное...