// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (x,n):=ReadInteger2('x,n =');
var ans :=1;
while (n > 0)do
begin
ans*=x; dec(n);
end;
Writeln(ans);
end.
<u>Пример:</u>
x,n = 2 10
1024
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var (s,v):=ReadReal2('s,v->');
Println('Сумма после ок. срока=',Range(ReadInteger('a->'),ReadInteger('b->')).Aggregate(real(0),(i,j)->s+i+(i*v/100)));
end.
Пример:
s,v-> 100 25
a-> 10
b-> 20
Сумма после ок. срока=4256.613
</span>
Const
n = 10;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
begin
Randomize;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(101) - 50;
Write(a[i, j]:4)
end;
Writeln
end;
for i:=1 to n do a[i,i]:=0;
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do Write(a[i, j]:4);
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходная матрица
-19 15 42 44 32 41 -11 -21 14 -29
33 -8 -21 -33 -38 28 21 43 39 -46
-1 33 13 23 -38 32 -25 -26 43 41
7 6 39 14 48 37 -3 -3 -2 -41
-26 40 -38 -24 16 43 -17 3 7 7
37 20 17 44 28 -2 -49 -32 32 -50
16 -35 -14 23 14 -23 3 15 -31 -24
-19 -26 -5 30 30 9 20 -13 -43 -30
-2 22 17 -15 -46 38 39 46 37 -1
36 -22 15 -2 -7 -41 3 -10 12 -12
Результирующая матрица
0 15 42 44 32 41 -11 -21 14 -29
33 0 -21 -33 -38 28 21 43 39 -46
-1 33 0 23 -38 32 -25 -26 43 41
7 6 39 0 48 37 -3 -3 -2 -41
-26 40 -38 -24 0 43 -17 3 7 7
37 20 17 44 28 0 -49 -32 32 -50
16 -35 -14 23 14 -23 0 15 -31 -24
-19 -26 -5 30 30 9 20 0 -43 -30
-2 22 17 -15 -46 38 39 46 0 -1
36 -22 15 -2 -7 -41 3 -10 12 0
1)
Var a,b,c:integer; x1,x2,d:real;
Begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
d:=sqr(b)-(4*a*c);
x1:=(-b+sqrt(d))/(2*a);
x1:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:0:2);
writeln('x2=',x2:0:2);
End.
2)
Var x,i,s,n,d:integer;
Begin
write('Введите первый элемент прогрессии: '); readln(x);
write('Введите количество элементов в прогрессии: '); readln(n);
write('Введите знаменатель прогрессии: '); readln(d);
s:=0;
for i:=1 to n do
begin
s:=s+x;
x:=x+d;
end;
writeln('Сумма элементов арифметической прогрессии равна ',s);
End.
