//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n =');
var X := ArrRandom(n, -99, 99);
X.Println;
var Y := ArrRandom(n, -99, 99);
Y.Println;
for var i := Low(X) to High(X) do
if Y[i] > X[i] then Swap(Y[i], X[i]);
writeln();
X.Println;
Y.Println;
end.
program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
Предположим, что значение х находится в ячейке А2. Запись в условии задания неграмотная, поэтому придется сделать предположение что SIN2 означает квадрат синуса.
Тогда для ячейки со значением Y формула запишется так:
=SIN(3*ПИ()*A2)-COS(3*ПИ()*A2)*SIN(ПИ()*A2)^2
Для ячейки со значением Z формула будет иметь следующий вид:
=COS(ПИ()*A2)-COS(3*ПИ()*A2)*SIN(ПИ()*A2)^2
C самого детства-я считал, что в вычислительных машинах таилось нечто особенное, непонятное многим людям. В возрасте 6 лет я точно определился-компьютеры-моя любовь. Достаточно много времени прошло с того момента, и я уже во многом разбираюсь, но до сих пор точно не определился, на какую специализацию пойти в будущем, ведь их так много! Информационная безопастность, прикладная информатика, программирование автоматизированных систем, web программирование, специалицазии на определенных языках программирования...-у меня разбегались глаза. Впрочем я и сегодня, занимаясь письмом этого сочинения до сих пор думаю о своем "Великом выборе".
Однако одно я могу заявить точно, с настоящей гордостью-"Я люблю компьютеры и хочу связать с ними свою жизнь!"
В одном килобайте 1024 байтов- 1/2 килобайта-512 байтов, в 1 байте 8 битов. 512*8=4096 бит