1.35
2.var y,x:real;
begin
read(x);
if x<=-1 then
y:=-(1/sqr(x))
else if (x>-1) and (x<=-2) then
y:=sqr(x)
else if x>2 then y:=-4;
print (y);
end.
Cхему думаю составишь сам уже
Program n_6;
const
n=10;
var
m:array[1..n] of integer;
i,x,y,z:integer;
procedure nod(a,b:integer; var c:integer);
begin
while a<>b do
if a>b then a:=a-b else b:=b-a;
c:=a
end;
begin
Writeln('Введите 10 двухзначных целых чисел');
for i:=1 to n do Read(m[i]);
x:=m[1];
for i:=2 to n do begin y:=m[i]; nod(x,y,z); x:=z end;
Writeln('НОД=',x)
end.
527 = 512+15 = 512+8+4+2+1 = 2^9+2^3+2^2+2+1
527(10) = 1000001111(2)
Чтобы перевести в 8-ную сс, нужно разбить число по 3
1.000.001.111 = 1017(8)
Чтобы перевести в 16-ную сс, нужно разбить число по 4
10.0000.1111 = 20F(16)
Точно также остальные
593 = 512+64+16+1 = 2^9+2^6+2^4+1
593(10) = 1001010001(2) = 1121(8) = 251(16)
824 = 512+256+32+16+8 = 2^9+2^8+2^5+2^4+2^3
824(10) = 1100111000(2) = 1470(8) = 338(16)
368 = 256+64+32+16 = 2^8+2^6+2^5+2^4
368(10) = 101110000(2) = 560(8) = 170(16)
Можно посчитать руками. Но это не интересно.
Заметим, что G(n+1)=F(n)+G(n)=(F(n-1)-G(n-1))+(F(n-1)+G(n-1))=2F(n-1);
G(n+2) = 2F(n)
Аналогично, F(n+1)=F(n)-G(n)=-2G(n-1)
F(n+2)=-2G(n)
Тогда F(5)=-2G(3)=-4F(1)=-4; G(5)=2F(3)=-4G(1)=-4
G(5)/F(5)=1
program n_1;
const n=7;
var i, m: integer; a:array [1..n] of real;
begin
m:=1;
for i:=1 to n do begin
read(a[i]);
if a[i]>a[m] then m:=i;
end;
writeln('Наибольший элемент массива из 7 чисел находится под номером ', m, ' и равен ', a[m]:0:10);
end.