1)
var
x1, x2, y : real;
r1, r2 : byte;
begin
writeln('введите:');
write('X1 = ');
readln(x1);
write('X2 = ');
readln(x2);
write('R1 = ');
readln(r1);
write('R2 = ');
readln(r2);
y := Power(10, x1-r2)*(abs(x2-r1)/sin(degToRad(x2)));
writeln('Y = ', y);
end.
2)
var s : real;
begin
for var n := 5 downto 1 do begin
var fac : integer := 1;
for var i := 1 to 2*n do fac *= i;
s += 1/fac;
end;
writeln(s);
end.
3)
var
s, a, eps : real;
n : integer;
begin
write('ввелте точность EPS = ');
readln(eps);
repeat
n += 1;
a := Power(-1, n-1)/sqr(n);
if abs(a) <= eps then s += a;
until abs(a) <= eps;
writeln('S = ', s);
end.
надеюсь нигде в расчетах не накосячил...
Var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do begin
Z[i]:=(random(52))-2;
writeln(Z[i]);
end;
<span>end.
значения выводить можно через отдельный цикл
</span>var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do Z[i]:=(random(52))-2;
for i:=1 to 30 do writeln(Z[i]);
end.
N = P*r, r = log2(I)
N - объем памяти
P - пиксели
r - разрешение
I - количество цветов
<span>все переменные в битах
r = log2(2)
N = 640*200*r = 640*200=128000 бит
</span>
// Аллилуйа человеки в питоне пишут
1.
a = int(input())
if a > 0:
print(1)
else:
print(-1)
2.
a, b = int(input()), int(input())
print(max(a, b))
<span>Боря из Омска, гриша из екатеринбурга, егор из казани, витя из твери</span>
