<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
%SystemRoot%/system32/rundll32 user32, SwapMouseButton >default
вес одного символа не написали.
если кодировка ASCII 1 байт
если кодировка UNICODE 2 байта
1 мб = 1024 кб
1кб = 1024 байта
1 мб = 1024*1024=1048576 байт
1 страница 60*65 = 3900 байт
1048576/3900 = 268.86 страниц для кодировки ASCII или 268.86/2=134.43 в UNICODE
Ответ: 268 страниц в ASCII или 134 страницы в Unicode
var x,y:real;
begin
readln(x);
y:=(sin(x)/Power(20,x))*sqrt(x);
writeln(y);
end.
Всё хорошо бы только надо ещё и картинки кораблей прилогать