Const
n = 10;
var
i, s: integer;
a: array[1..n] of integer;
begin
Writeln('Введите элементы массива через пробел');
for i := 1 to n do Read(a[i]);
s := a[n];
for i := n downto 2 do a[i] := a[i - 1];
a[1] := s;
for i := 1 to n do Write(a[i]:4);
end.
<u>Тестовое решение:</u>
Введите элементы массива через пробел
4 -5 3 10 -4 -6 8 -10 1 0
0 4 -5 3 10 -4 -6 8 -10 1
Program geron;
var A,b, c,p,s:real;
begin
readln(a,b, c);
p:=0.5*a*b*c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника: ',s);
end.
В далекие времена, когда еще не существовало современных технологий, людям приходилось быть весьма практичными, поэтому для бытовых нужд использовались самые неожиданные предметы. Для письма в Древней Индии приспосабливали, например, камни, и очень часто - пальмовые листья, поскольку те были более удобными.Первоначально листья высушивали, а после этого нарезали длинными и узкими кусочками. Чаще всего использовали листья пальмы талипот, которые можно было легко размягчить перед сушкой.
a = input()
if (len(a) == 2) and (a.isdigit()):
b = int(a)//10 + int(a)%10
print(b*b)
P.s программа работает так - вводим 66, она выведет 144, т.к (6+6)^2 = 144, так же если ввести не двухзначное число или буквы, то программа ничего не выведет.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Сумма = ',a.Sum,', произведение = ',
a.Aggregate(BigInteger(1),(p,q)->p*q),
', среднее = ',a.Average)
end.
<u>Пример</u>
n= 17
49 -31 46 61 -87 18 -64 -48 66 64 -37 56 43 -52 13 28 -78
Сумма = 47, произведение = -11393046129075182950686916608, среднее = 2.76470588235294
