PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin // чтобы не создавать файл вручную WriteAllText('MyData.txt',SeqRandom(ReadInteger('n='),-999,999) .Select(t->(0.01*t).ToString).JoinIntoString); // собственно задание // если нужно упорядочить аргументы, после ToReals добавьте // .OrderBy(t->t) foreach var x in ReadAlltext('MyData.txt').ToReals do Writeln(x:5:2,Cos(x):20:15)end.
Примерn= 15 2.58 -0.846408041215776 7.88 -0.026015430579441-0.73 0.745174402344870-8.46 -0.569599389383433-2.77 -0.931750235288572-8.81 -0.816901534192113-2.95 -0.981702202998454-4.71 -0.002388978112282 3.94 -0.697848325003564-7.89 -0.036010578623415 1.45 0.120502769367367 5.34 0.587212716720073 9.17 -0.967719280210989 7.85 0.003981623454080-1.24 0.324796284438776