X - (x - 18) div 3 = 69
x - 69 = (x - 18) div 3
0 <= (x - 18) - 3(x - 69) < 3
0 <= -2x + 189 < 3
0 >= 2x - 189 > -3
189 >= 2x > 186
94.5 >= x > 93
поскольку в целых числах, то х = 94
Можно как то так:
var
M: real;
x: integer;
begin
for x := 1 to 100 do
begin
M := 2 / Sin(x);
Println('x=', x, '; M=', M);
end;
end.
Var
a: array of integer;
i, n: integer;
begin
readln(n);
setlength(a, n);
for i := 0 to n - 1 do
read(a[i]);
for i := 0 to n - 1 do
begin
if a[i] < 0 then a[i] := 0;
write(a[i], ' ');
end;
end.
256000*120(2 минуты в секундах)=30720000 бит
переводим бит в килобайты
3750 килобайт)