===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 10, 99); // для одинаковых позиций вывода
a.Println;
// элементы, кратные трем, упорядочить по убыванию
// прочие оставить на своих местах
var v := a.Select((v, i) -> (v, i))
.Where(t -> t[0] mod 3 = 0)
.OrderByDescending(t -> t[0])
.ToArray;
var w := v.Select(t -> t[1]).Sorted.ToArray;
for var i := 0 to w.High do
a[w[i]] := v[i][0];
a.Println
end.
Var x: Integer;
begin
readln(x);
writeln(((3/abs(x))+(exp((1/3) * ln(x))))/1);
end.
Var
sound: system.Media.SoundPlayer;
begin
sound := new system.Media.SoundPlayer;
sound.SoundLocation := '*.wav';
sound.Play;
end.
аиболее распространенные типы оптических носителей - это CD-ROM, DVD-ROM, DVD-RAM, записываемые носители, оптические кассеты с однократной записью (WORM) и перезаписываемые оптические кассеты. CD-ROM предоставляет доступ в режиме только для чтения и оптимизирован для быстрого доступа к данным.
Паук
1 Парк
2 Пара
3 Фара
4 Тара
5 ? .. (ни как не могу придумать )
Лужа
1 Ложа
2 Кожа
3 Кора
4 Гора
5 Горе