<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024
Найдите закономерности и продолжите последовательности. а) а, б, в, г, ... б)а, в, д, ё, ... в)Анна Борис, Валентина, Геннадий,
gendo
А) а, б, в, г, д, е, ... — буквы русского алфавита
б) а, в, д, ё, з, й, ... — буквы русского алфавита через одну
в) Анна, Борис, Валентина, Геннадий, Дмитрий, Елизавета, ... — имена, начинающиеся на буквы русского алфавита
г) о, д, т, ч, п, ш, с, ... — первые буквы чисел (Один, Два, Три...)
д) Москва, Абакан, Норильск, Киев, Воркута, Архангельск, ... — "игра в города" — каждое следующее название начинается на последнюю букву предыдущего
Ксерокс относится к средствам копирования и размножения документов — (4)