АХ^A = БАХ
Очевидно, что А не равно 1, так как AX^1 = AX.
A также не может быть >=3, так как даже при возведении минимального двузначного числа в 3 степень получится четырехзначное число (10^3 =1000).
Следовательно, A=2
Так как в числах AX и БАХ последние цифры совпадают, то Х может быть 1, 5 или 6.
21^2 = 441 - не подходит
25^2 = 625 - подходит
26^2 = 676 - не подходит
Ответ: 25^2 = 625
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var k:=0;
for var i:=1 to n-1 do
for var j:=n-i to n-1 do
if a[i,j].IsEven then k+=1;
Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
90 57 58 49 91 -83 61
-57 70 52 90 53 -22 89
-90 -23 39 -88 28 16 -34
-65 -19 -92 -49 77 11 79
-37 -85 -5 6 -41 -75 -90
1 62 24 92 -37 88 21
-65 -47 48 -39 -46 6 38
----------------------------
Количество четных элементов ниже побочной диагонали: 11
(5,5), (8,8), (9,8), (11,6), (12,7), (12,7), (11,7),
(11,2), (9,2), (9,3), (10,3), (10,4), (7,4), (7,2),
(5,2), (5,3), (6,3), (6,9), (7,9), (7,8), (2,8),
(2,9), (3,9), (3,6), (4,5)
Ответ:
var s, n: integer;
Мы обозначаем переменные целого типа
var s, n: integer;
начало программы
s:=0; n:=1;
присваиваем переменным значения
while sqr(s+2)<125 do
Цикл, пока корень квадратный s+2 < 125 - выполнять цикл
begin
начало цикла
n:=n*2;
умножаем n на 2
s:=s+2;
прибавляем к s 2
end;
конец цикла
write(n);
вывести n
end.
конец программы
Объяснение:
У Вас ошибка в 9ой строчке, пропустили точку с запятой.
var s, n: integer;
begin
s:=0; n:=1;
while sqr(s+2)<125 do
begin
n:=n*2;
s:=s+2;
end;
<h2>write(n)<u><em>
</em></u><u><em>
;</em></u></h2>
end.
Var
a, b: real;
begin
Write('Введите через пробел два числа: ');
Readln(a, b);
if a < b then Writeln(a + b)
else Writeln(a - b)
end.
