Надсистемой Земля явл.для атмосферы Земли
Надсистема для Земли:Солнечная система
Program Z_n;
var a,b:integer;
Begin
Readln(a);
Readln(b);
If a>b then begin write(b,' '); writeln(a); end
else begin write(a,' '); writeln(b); end;
end.
P.s Числа вводите через enter( Ввели число, нажали enter, потом ввели второе число)
Function circle_func(x: real): real;
begin
circle_func := sqrt(4 - sqr(x + 8)) - 2;
end;
function line_func(x: real): real;
begin
line_func := 0.5*x + 1;
end;
function quadratic_func(x: real): real;
begin
quadratic_func := sqr(x - 6);
end;
var
x, y: real;
begin
writeln('Введите аргумент: ');
readln(x);
if ((x >= -10) and (x < -6)) then y := circle_func(x);
if ((x >= -6) and (x < 2)) then y := line_func(x);
if ((x >= 2) and (x < 6)) then y := 0;
if ((x >= 6)) then y := quadratic_func(x);
writeln(y:5:3);
end.
Ответ:
Объяснение:
Смущает последнее слагаемое, выбивается из закономерности.
должно быть 11х¹⁰ или 10х⁹
program sumxproj;
uses math;
var
x,Y:real;
n,i:integer;
begin
Write('Введите x=');
readln(x);
n:=10;
Y:=0;
for i:=1 to n do
Y:=Y+(i+1)*power(x,i);
writeln('Y=',Y:6:2);
readln;
end.
program q;
var
m:array[1..5] of integer;
sum, j:integer;
begin
sum:=0
for j=1 to 5 do
begin
write('введите ',j ,'элемент массива: ');
readln(m[j]);
sum:=sum+m[j]
end;
sum:=sum/5;
writeln(sum)
end.
