//PascalABC.NET 3.4.2
begin
var ar := arrrandom(100, -100, 100);
ar.Println.Take(5).Sum.Println;
ar.TakeLast(5).Sum.Println;
end.
Ответ:
13635= 1 × 10000 + 3 × 1000 + 6 × 100 + 3 × 10 + 5
наименование-это по другому название
begin
var n1 := ReadlnInteger();
var s := n1.ToString;
var n2 := s[::-1].ToInteger;
Print(n2)
end.
const DOLLAR = 68; // доллар в руб
const EURO = 75; // евро в руб
let rub = prompt("Введите сколько хотити перевести");
rub = parseInt(rub, 10);
alert("Доллары: " + rub/DOLLAR + "\nЕвро: " + rub/EURO );