Program chik;
var a:array[1..1000]of integer;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
if (i mod 2=0)then a[i]:=0;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.
//прога на Pascal`e
var
x: real;
function f (a:real):real;
begin
f:= (sqr(cos(a)) - 5) / (abs(a) + 3);
end;
begin
write ('Введите x: ');
readln (x);
write ('A = ', f(x));
end.
АХ^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
Программа.................................................