Var
s, si, sm: string;
i, n: integer;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
Readln(f, s);
Close(f);
Assign(f, 'output.txt');
Rewrite(f);
n := Length(s);
sm := Copy(s, 2, n - 1);
for i := 2 to n do
begin
si := s;
Delete(si, i, 1);
if sm < si then sm := si
end;
Writeln(f, sm);
Close(f)
end.
'Microsoft Qbasic
INPUT a, b
IF a = b THEN
a = 0
ELSE
a = -a: b = -b
END IF
PRINT a, b
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Read(a,b);
if a=b then a:=0
else begin a:=-a; b:=-b end;
Println(a,b)
end.
int main() {
double a;
int n;
cin >> a >> n;
double summa = 0;
double iteration = 1;
for (int i = 0; i < n; ++i) {
iteration *= 1/(a+i);
summa +=iteration;
}
cout << summa;
return 0;
}
Исходя из контекста это 1, 5 и 6.
Хотя и 5 пункт сформулирован не совсем корректно, что значит управляет процессами? Что понимать под управлением и что такое процесс, процесс шуществует только на уровне ОС, как абстракция для выполения программы..